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CeBIT '86: Eine Messe der 





‚Superlative!?! 


Erstmals fand in diesem Jahr auf dem 
Messegelände in Hannover die CeBIT - 
Welt-Centrum der Büro-, Informations- 
und zen. als eigene 







Verbundmesse statt. Nachdem in den letz- 
ten Jahren der Zustrom auf die CeBIT 
Messehallen immer größer wurde und ei- 
ne Vielzahl von Ausstellern auf den Warte- 





Neu: Neues Computer- 


listen für Standplätze registriert wurden, 
hat man sich von Seiten der Messeleitung 
nun zu dieser Trennung von der eigentli- 
chen Hannovermesse und der CeBIT ent- 
schlossen. Vom Start weg war diese Mes- 
se auch gleich die zweitgrößte Fachaus- 
stellung der Welt im Bereich der Büro-, 
Kommunikations- und Informationstech- 
nik. 


Fortsetzung auf Seite 18 


Messungen mit dem Commodore 64 


AufS.19 können Sie mehr darüber erfahren, wie Sie mit Ihrem Com- 
modore 64 eine Vielzahl von verschiedenen Messungen durchfüh- 
ren können. Was Sie dazu benötigen istlediglich ein kleines Zusatz- 
gerät, daß direkt an den C-64 angeschlossen werden kann. 
Weiter S. 19. 
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Display 


Mit Hilfe dieses Computer-Dis- 
plays können Sie Daten ohne ei- 
nen Bildschirm übermitteln. Le- 
sen Sie mehr darüber auf S. 24 
dieser Ausgabe. 
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Tausende von Besuchern drängten sich auf dem 
Messegelände 


chung 
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R/OrR 


programme 
SPAGE-DEVIL: Ein Action-Spiel für den C-64 


Behaupten Sie sich gegen die Nachkommen der 
schwarzen Legionäre 


Nach einer alten Sage, und sei sienoch so 

unwahrscheinlich, werden die bereits vor 

tausend Jahren durch die Truppen des Steigen Sie in Ihren 
Magiers Xediax in einem Hinterhalt umge- ont 
kommenen schwarzen Legionäre am Tage Raumgleiter .— 

des Gleichstands aller zwanzig Medan- | Fewern Sie aus allen 


Planeten ihre ursprüngliche Gestalt zu- . . 
rückerlangen, um sich an den Nachkom- „Rohren" und verhindern Sie 


men ihres ehemaligen Feindes zu rächen. | sg dje drohende Invasion! 
Im Jahre 5 des Imperators Talon ist nun 


endlich der Zeitpunkt eingetreten... 
Fassungslos sehen Sie die, wie aus dem 








Nichts auftauchenden Legionäre und jet- | Zielrakete... anschließend ein Lasertor- | - 14 verschiedene Spriteformen 
zigen Diener des Raumteufels aufihreMa- | pedo... Ist der Sieg Ihrer? - absolut ruckfreie Grafik 
Schine in beängstigender Geschwindig- 

keit zurasen und können noch in letzter | Besonderheiten des Spiels: Score: 

Sekunde eine Kollision verhindern. In ver- | - ein Menü erlaubt die Auswahl mehre- | 10 Punkte für Plasmaball 
zweifelter Lage feuern Sie aus allen Roh- rer Raumer und Spielsituationen 20 Punkte für Flugzeug 


t 


ren, um die Besten der Galaxie abzuweh- 


eigentliches Spiel 100% MC-Code 20 Punkte für Lasertorpedo 
ren. Doch nun erscheint sogleich ein wei- ° 


sehr gute Animation 























terer Gegner im Sturzflug,.... dort eine | - 3D-Grafik Steuerung: Joystick in Port 2 

3 REM OHRRTRRRTEER HERR RE x196> 2100 DATA176,129,189,185,1497,141 ,157,129 

2 REM * * “993 255 x98> 
3SREM *# SPACE - DEVIL (D)1985 * <255> 2102 DATA177,199,247,.247 ,231,231 ,231,195 

4 REM #* WRITTEN BY * <42> 255 “68> 
5 REM «+ CHRISTIAN WURZER * <89> 2109 DATA178,129,189,253,129,159,159,129 

& REM + FOR COMMODORE 64 * <h7> 4255 “29> 
7 REM * * <104> 2110 DATA179,193,253, 253,225, 249,249, 1297 

BREMER NIE HERE <2035> ‚255 x132> 
2: <67> 2111 DATA180,191,191,187,187,129,243,243 

50 POKES3280 ,0: PDKES3281,0 «132> „255 <245> 
2004 DATA120,169,51,133,1,169,0,135,95,1 2112 DATA181,173,223,223,173,249,185,127 
33,70,133,89,169,208,133, 96,159, 240 <247> ‚255 - x72> 
200% DATA1SZ „89,169, 224, 133,91 „32, 191,16 2113 DATA192,1297,191,191,129,157,157,129 
3,169,55,133,1, EB, F& <130> ‚255 “9357 
2010 FORT= B32T0832+33: READO= POKET „Qs NEXT <7> 2114 DATAIBS,1297,189,251,247,231,231,231 

2020 5Y5B32:POKEBSO ,160: 8Y59I7?: FOKES&S7& „255 - <106> 
‚PEEK (56574) AND252: POKES3272,8 <75> 2115 DATA184,195,217,219,129,157,157,129 

2030 FOKE448,1972:B08UB11000 <104> ‚255 <160> 
20537 PRINT" CDOHN2 HGREY SPACEZIEINISPACE 2116 DATA1B5,127,189,189,129,249,249,129 
FACTIONSPIEL{SPACEIFÜUERTSPACEIDENISPACE? ‚255 <152> 
COMMODORE TSPACEIEA <121> 2120 DATA27,0,0,0,15,1,5,0,1 <b> 
2041 PRINT"IDOHN2 SPACEISIBITTETSPACEIWA 2121 DATA28,0,32,112,248,252,254,168,56  <84> 
RTEN" <148> 2122 DATA29,2,4,4,4,4,4,4,4 x122> 
20832 PRINT" {DOHN SPACETYDATENTSPACEIWERD 2123 DATA3SO,34,33,65,65,63,65,65,65 x249> 
EN{SPACEHEINGELESEN" <136> 2127 DATAS1,3,3,7,7,15,31,63,255 <132> 
2045 PRINT"{DOHNZ RED SPALEIJ{SPACEIDTSP 2128 DATA33,0,128,129,1972,224,240,252,25 
ACEIYISPACEISTSPACEITISPACEITISPACEILISP 5 . <b0> 
ACEIKISPAGEIHITSPACEINISPACESIFTSPACEIUT 2130 DATA3S,224,120,62,30,31,15,15,15 <895> 
SPACEIRTSPACEFTISPAGEZFZ" <211> 2131 DATA38,15,30,30,/80,55,112,224,0 <154> 
2050 READX: IFX="-1THENZOGO <15> 2132 DATAS7,0,0,0,0,0,0,8,0 <146> 
2052 06=57344+X*B: FORI=OTO?: READZ: POKECB 2137 DATASB,0,0,0,1,3,7,69,125 <67> 
+1,Z:NEXTrGOTO2ZOS0 <243> 2138 DATASI,0,0,0,224,240,248,272,24 z414> 
2060 3 <78> 21397 DATA40,71,67,126,71,69,126,71,71 «130> 


Eine ED en mann a 


programme 


2140 DATA41,248,232,24,248,232,23,249,24 
8 

2147 DATA42,0,0,12,30,62,63,127,127 

2148 DATA43,127,126,253,253,293,251,251, 
247 

2149 DATA44 64,192 ,224 ,239 „247 ,247 ,251,2 
51 

2150 DATA45,0,0,0,128, 192,224 , 224,240 
2151 DATA46,254 253,251 ,251,247,207,63,2 
55 

2152 DATA47,127,191,191,223,223,239,243, 
255 

2155 DATALSS,0,0,0,0,1,131,195,227 

2157 : 

ZI5B DATA1S6,7,31,63,127,255,255,2553,255 
2159 DATA157,252,255,255,255,255,255,255 
„255 

2180 DATA158,0,0,127,195,231,239,238,250 
2161 DATA159,183,215,239,239,127,127,63, 
31 

2162 DATA161,249,254,255,207,195,193,228 
„240 
2163 DATA163,254,253,123,183,254,252,249 
„248 

2164 DATA164,1198,246,254,159,31,31,63,12 
7 

2155 DATA155,31,15,15,7,3,1,0,0 

2167 bAtaAi66,255,255,255,255,254,192,158 
„124 

2168 DATA167 ,255,255,255,255,7,0,1;1 
2169 DATA168,255,255,255,254,252,28,2%2, 
280 

2170 DATA169,120,120,119,119,51,48,16,8 
2172 DATA1L70,0,6,254,254,254,240,0,1 
2173 DATA171,240,240,240,224,192,192,128 
o 

1 
2175 DATA-1 

3500 REM ————. MC-EGDE 

3520 DATA162,0,142,193,2,173,0,220,41,23 
7,141,255,207 

3521 DATA174,1,208,224,156,240,36,174,25 
5,207,224,109 

3625 DATA208,5,162,1,142,193,2,174,255,2 
07,224,105,208,5,162,1,1432,173,2 

3636 DATA174,255,207,224,101,208,5,162,1 
„142,193,2 

3437 DATA174,1,208,224,90,240,56,174,255 
„207 ,224,110,208,5 

3638 DATA162,255,142,193,2,174,255,207,2 
24,106,208,5,162,255,142,193,2 

3639 DATA174,255,207,224,102,208,5,162,2 
55,142,193,2 

3644 DATA23B,254,207,174,254,207,224,1,2 
08,48 

3650 DATA238,253,207,174,253,207,224,1,2 
08,3,238,248,195 
3652 DATAL74,253,207,224,2,208,3,238,248 
„195,174,253,207,224,3,208,3,206,248 
3654 DATA195,174,253,207,224,4,209,8,206 
„248,195,162,0,142,253,207 

3704 DATA174,0,220,224,112,176,39,173,21 
208,41,2,.201,2,240,30,173,16,208 

3705 DATA41,253,141,16,208,162,95,142,2, 
208,174,1,208,142,3,208,32,29,200 

3708 DATA173,21,208,9,2,141,21,208 

3712 DATA174,2,208,224,70,208,9,172,21,2 
08,41,253,141,21,208 

3720 DATA238,252,207.174,252,207 ,224 ,150 
„208,5,162,90,142,252,207 

3732 DATA174,240,.207 ,224,0,208,56,162,25 
5,142,176,2,173,21,2098,9,4,141,21,209 
3734 DATA173,16,208,41,4,201,4,208,34,17 
4,4,208 ,224 ,252,208,27,173,21,208 

3736 DATA41,251,1%1,21,208,162,3,142,240 
,207,162,0,142,196,2,2064,4,2089 


x47> 
886? 


237> 


“1445 
“14> 

“1287 
63} 

<222> 
s175> 
x255> 


<87> 
1077 


<102> 
<x191> 
<x40> 


<127> 
x&4> 


x7&6> 
ıb3> 


<175> 
<250> 
x231> 
<51> 
2477 
“727 
x244> 
x140> 
s48> 
<587 
“151> 


<13> 


£37> 


x120> 
sa> 


<48> 
<46> 
“1737 
2157> 


“120> 


3738 DATA174,252,207,.142,5,208 

3750 DATA173,21,7209,41,8,201,8,240,67,17 
3,16,208,9,8,141,16,208,162,47,142,6 
37352 DATA208,152,172,142,7,208,162,85,1% 
2,183,2,174,1,208,224,155 

375% DATA178,5,162,60,142,183,2,174,1,20 
8,224,145,176,5,162,42,1432,183,2 

3754 DATA174,1,209,224,135,176,8,162,23, 
142,183,2,173,21,208,9,B8,141,21,208 

3756 DATA173,15,208,41,8,201,8,230,15 
3757 DATA174,6,208,224,1,208,8,173,21,20 
8,41,247,141,21,208 

3765 DATA173,30,208,141,246,207,41,6,201 
6,240,7 

3767 DATRI73,248,207,41,5,201,5,208,52,3 
2,0,200,32,53,200,32,53,200 

3759 DATA173,21,2098,41,249,141,21,208,17 
3,16,208,9,4,141,16,208, 162,250 

3771 DATA142,4,208,162,1,1492,240,207,162 
„0,142,196,2,173,30,208,32,181,200 

2773 DATA174,252,207,142,5,20B 

3795 DATA174,240,207,224,1,208,2& 

3757 DATA162,230,142,8,208,162,50,142,9, 
208,152,1,142,201,2 

3797 DATA173,21,208,9,16,141,.21,208,238, 
240,207 

3809 DATA174,7,208,224,166,208,40,238,24 
0,207,162,0,142,201,2,238, 252,195 

3810 DATA206,9,208,162,32,142,112,194,14 
2,113,194,142,114,194,142,115,194 

35811 DATA142,152,194,142,153,194,142,154 
„194,142,155,194 

Z820 DATA174,240,207,224,3,208,24,238,23 
9,207,174,239,207,224,200,208,14 

3822 DATA162,0,142,259,207,238,240,207,2 
39 ,252,195,32,0,200 

3924 DATA174,240,207,224,4,208,21,238,23 
7,207 ,174,239,207 ,224,200,208,1i 

3824 DATA162,0,142,239,207 ,238,240, 207,2 
38,252,195 

3828 DATA1L74,240,207,224,5,208,34 

3830 DATAZ3U ,239,207,174,239 ,207 ,224,258 
‚208,24,162,0,142,239,207,238,240,207 
39332 DATA172,21,209,41,239,141,21,208,1& 
2,46,142,252,195,32,0,200 

3902 DATA173,246,207,41,18,201,19,240,9 
3905 DATA173,246,207,41,17,201,17,208,35 
,32,0,200,32,53,200,173,21,208,41,237 
3907 DATA141,21,208,162,0,142,201,2,162, 
46,142,252,195,32,181,200,162,6 

3999 DATA142,240,207,173,30,208 

3921 DATA23B,233,207,174,238,207,224,50, 
208,5,162,20,142,238,207 

3922 DATA174,240,207,224,6,.208,40,152,10 
0,142,10,208,174,238,207,142,11,208 

3725 DATA1&2,1,142,203,2,162,50,142,253, 
195,173,16,208,9,32,141,16,208B 

3927 DATA173,21,208,7,32,141,21,208,238, 
240,207,174, 240 ,207,224,7,208,20 

3929 DATA174,10,208,224,250,208,13, 162,5 
1,142,253,195,162,0,142,205,2 

3932 DATA23G,240,207,174,240,207,224,8,2 
08,20,174,10,208,224,255,208,13 

3934 DATA162,0,142,240,207,173,21,208,41 
„223,141,21,2089 

3931 DATA173,246,207,41,34,201.34,240,9 
Z942 DATA173,246,207,41,33,201,33,208,28 
‚32,0,200,32,53,200,173,21,208 

3945 DATA41,221,141,21,208,162,0,142,240 
‚207 ,32,191,200,173,320,208,32,53,200 
39530 DATA173,246,207,41,1,201,1,208,22,1 
74,67,195,224,176,208,1,96,206,67,195 
3952 DATA173,21,208,41,247,141,21,208,17 
3,30,208 

4510 DATA152,15,167,128,141,61,3,141,60, 


Dem mııhrn an 


217? 
“168> 
“216> 
<207> 


xP1> 
<697> 


<138> 
£35> 
<110> 
<159> 
x31> 
X232> 
<X173> 
x1437> 
xBB> 
<181> 
x2557 
A0> 
<30> 
s145> 
sAal> 


423 
“252> 


<123> 


«70> 
<18> 


<54> 


s139> 
x204> 


“22> 

x250> 
x177> 
<200> 
x171> 
<250> 


<23? 
x225> 


“ABr 
<245> 
“1955 


:78> 


B/BR 
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3,222,203,2,208,44,189,1768,2,157,208,2 
4512 DATA189,192,2,240,33,168,12,189,0,20 
8,0,222,0,208,40,230,7,208,17,254,0,208 
4514 DATA208,14,1732,60,3,208,9,173,61,5, 
77,16,208,141,16,208,173,60,3,208,3,78 
a51& DATA81,53,73,128,141,50,3,202, 16,191 
76,24 196,1 

4410 DATA142,0,142,4,212,1682,13,142,5,21 
2,142,6,212,182,153,142,1,.212,162,255 
#512 DATAi42,0,212,162,129,142,4,212,.96 
A613 ı 

4615 DATA1L52,0,142,11,212,162,11,142,12, 
212,142,13,212,162,23,192,8,212,162,127 
4617 DATA142,11,212,95 

4622 DATA174,251,207,224,185,240,5,258,2 
51,207,208,85,162,175,142,251,207 

4624 DATA174,250,207 ,224,185,240,5,238,2 
50,207,208,68,162,176, 142, 250,207 

4625 DATA174,249,207 ,224,185,240,5,238,2 
49.,207,208,51,162,176, 142,249 ,207 

4628 DATA174,248 ,207 „224,195, 240,5,238,2 
48,207 ,208,34,162,176,142,2438,207 

4630 DATA174,247,207,224,185,240,5,238,2 
47,207 ,208,17,162,176, 142,251 ,207 

46432 DATA142,250,207,142,249,207,1432,248 
+207,142,247 ,207 

4634 DATA1L74,251,207,142,85,195,174,250, 
207,142,54,175,174,249,207,142,83,175 
463& DATAi74,248,207,142,82,195,174,247, 
207,142,81,195,9%& . 

4549 DATAI&2,1,142,35,208,150,0,182,0,23 
2,200,192,255,208,251,224,30,208,245 
4642 DATA152,0,142,33,209,94,—1 

4998 ı 

4999 ı 

5000 REM ——-- SPRITES 

5010 s 

SC15 DATA, as 7 17 1 7 17 7 7977 733 7157240, 355 
192,,97,224,,085,86, ,247,255, 160,171 ,255 
5017 DATAB,255,255,198,245,85,255,127,25 
4,,3119,2434,,103,224,,7,192,,7,12B,,31 
5019 DATA224,09 

S025 DATA, anssursessennnernsshanennn Fe 
92,,103,128,,119,255,160, 215, 255,136 
5027 DATA253,85,198,755,255,255,119,250, 
779,280, 03,892, 15,224 aan 

5035 DATA,esnrennsnnnnn mann nnd An 
112,,,3124,,,127,255,208,239,171,196 
5037 DATA2S5,255,254,127,255,255,3,240, 5 
YVETIVTITIITITI 

5043 DATAeayIr TER STEHT TI ITERTIT 


ELBE ERERLTEEFLFIESLTEREUSEUTETETEEEE 
3047 DATA, yaassass7 11773777 30931,7,1255,2 


14,17,213,239,103,255, 239,255, 255,214 
so43 DATA) 5klyas ars near TE TE 


F 
5052 DATABA, 2A able rn res nnnn nn 


TITYITTTTEITIITHTTITIRRTSITIIHIIITINTTN 


5053 + 

5056 DATA,L1E, 2,124, 3244, 402384 a1a246, 5 
218 108, lFO yennean nasser nn nn 
>058 DATAyasyansssynn ans 00n 

5082 DATA, gasenaysannn sn nnd 
12,,14,120,8,15,120,24,14,216,24,140 
50654 DATA204,60,204,132,124,232,69, 256,1 
24,343,200,114,33,8,49,15,8,24,1B,15 
5055 DATA13,20,80,4,144,1&0 

5070 DATAyaanaann ran sannn ßen ln, 
‚4,4,,2,50,16,2,138, ,4,37,64,67,152 
=072 DATA150,20,872,32,67,368,148,24,157,8 
0,35,768,128,12,1458,32,2,100,128,3,B1 
074 DATALZB 

3078 DATA, zasaassssurornunnsannlarnnsan 
an7377732g 313433325 14,137, 1242, 417,95 


s233> 


<196> 


x143> 


<184> 


<58> 


A33> 


<81> 


<247> 
“216> 


“147> 
x93> 

<51> 

<253> 
149 > 
<104> 
“63 

*145> 
<104> 
<92> 
<211> 
<212> 
<b> 

<223> 
x32> 


<209> 
<247> 


<193> 
<36> 
<130> 
<220> 
<131> 
<82> 


<30> 


“2> 
<10> 


1435 
<212> 


<91r 


<92> 
<1397> 


<74> 


“19723 
<b4> 


<61> 


programme 


5080 DATA,9,6,64,4,32,22,132,128 

5084 DATA,„4,172,,56,224,,124,176,,127,11 
2,,126,128,,253,128,1,127,208,2,127,224 
5084 DATA,127,224,,127,224, ,255,192,1,19 
54243,134,47 58 1617 3Psa sen IH Han 
SO94 DATA, a s17373333 76, 31224, 163,248, 5,75 
227,,63,247,7,255,255,17,213,126,63,255 
5096 DATA240, ,31,224,,15,224,,7,224,,65, 
ZA Eh Pass nn 

5102 DATA1i21,198,51,195,41,100,195,41,68 
„115,45,70,27,207,68,27,9,100,243,9,51 
S103 DATA, a41371284 43 96,,33,184,,50,140, 
„18,204, ,2,204, ,2,204,200,162,141,40 
5104 DATA178,185,197,51,97,5,51,128,226, 
17,4 

5107 DATA255,255,255,255,255,255,255,255 
‚255,255,755,255,255,255,255 


5108 DATA, sen ss ET AI IE TRETTITTIIETTN 
TIITITIIIETRTTIIITIRT 

6000 REM -——m—— EINLESEN DER DATEN 

6002 x 

004 FORT=0T09999: READO: IFQ=—- 1 THENSOOB 
8005 FOKES50200+T ,G:NEXT 

6008 FORT=OTO97979: READO: IFO=-1 THENSO12 
&010 POKES1200+T,G:NEXT 

5012 : 

6020 FORT=0T052: READD: POKES1712+T „Or NEXT 
6022 FORT=0T0&2: READU: POKES1776+T7 „DE NEXT 
6024 FORT=OTD4%: READU: FOKES1840+7 „DB: NEXT 
6025 FORT=OTDA2: READE: POKES1FO4+T „AENEXT 
6028 FORT=0T052: READO: FOKES1F68+T „Ds NEXT 
60350 FORT=0T082: READO: FBKES2032+T ,QB=NEXT 
6032 FORT=0T052: READB: POKESZOFAHT „A; NEXT 
6034 FORT=0T082: READO: FOKES2160+T,Q: NEXT 
8055 FORT=OT082: READU: FOKES2224+T ,Q: NEXT 
#038 FORT=0T082:ı READU: POKES2288+T „Dr NEXT 
60640 FORT=0T082: RERDEH POKES2SSF+HT „OB: NEXT 
#042 FORT=0T052: READO: POKES2414HT „BINEXT 
6044 FORT=OTDS2: READU: POKESZ4B0FT ,BENEXT 
5045 FORT=0TD&2: READG: POKES2544+T „BENEXT 
60954 GOTO12000 

7000 REM -—--- VARIABLEN,DATEN 

7002 t 

7004 V=53248: PDKEV+17 ,FEEK {V+17) AND23F 
7005 POKES32453,0 

7010 FORT=&88T0719:POKET ,O:NEXT 

7014 FORT=37T0464 POKEV+T , 15: NEXT 

7024 POKEV, 70: POKEV+1 „140: PDKE5S0148,40 
7025 FOKE587,W 

7928 POKES0189 ,43: PIKE&90 ,S: FOKE7068,1 
7031 POKEV+4,150:POKEV+5, 1304 POKES0170,4 
4: POKE892 ,Fı POKE708,, 255: POKESS244 ,130 
70533 POKES0171,45:POKE694 ,‚FX: FOKE710,255 
ı POKE711 „255: POKESIYS,SO 

7035 POKEV+9 ,50: POKES0172,46:POKE697 ,1& 
7037 FOKE678 „6: POKE697 „a: POKE714,2555 POK 
EV+44,2 - 

70397 PDKEV+12,183: FOKEV+13 ,200  POKESO0174 
‚52 

7040 PDKEV+14,275: POKEV+15, 215: POKESO175, 
53 

8010 POKEV+21,197: PDKEV+165, 12: POKEVU+27, 1 
29: PDKEV+23, 1289: FOKEV+29,128 

8011 FORT=0TD04: PDKES3S239F+T ,175:NEXT 

8015 FOKESS232,01POKESS231,0 

8016 ı 

8050 REM --—- SOUND 

8032 5S1=54272: FORT=0TD24: POKESI+T „OSNEXT 
5034 FOKESI+24,311FP0KESI+21,3: POKESI+r22, 
3ı PDIKESI+25,241 


F000 REN ---- GRAFIK 
F010 r 
9011 PRINT"L{ELEARY" 





7012 FORT=OTD12:R=RND (0) #400: POKEAF1SZHR 


Comoußs miP 


<114> 
<72> 

<159> 
1220> 
<231> 
<65> 

<201> 
<241> 
<170> 


<S4> 


<54> 
<195> 
«54> 
<1356> 
“198> 
<143> 
x205> 
<164> 
<74> 
<197> 
<21B> 
«128> 
<115> 
“25> 
x149> 
x1869> 
793 
<202> 
«22537 
<235> 
<so> 
<14> 
<151> 
<175> 
<85> 
2087 
s115> 
xi16> 
177> 
s2> 
<99> 


<13> 


<27> 
“93> 


<114> 
<189> 
<129> 


x117> 
xi184> 
<109> 
<169> 
x65> 

and> 


<BO> 
<201 > 
<143> 
“11&> 


programme _ 




















































































































































































































. . FF SPACE RWSONITLRFSOFE SPACE AYSOHIT" £<203> 
a enaeena un R “2237 11032 FRINTTAB<12)"{RVSGN SPACE RISGFF S 
NT’<SPACEIS HHITEIR “485 PACE RVYSON SPACE RVSOFF SPACE RYSON SPAC 
2015 PRINT"{SPACESS KHITEIE" PRINT" TDOHN E RUSDFF SPACE3 RVSON SPACE RYSDEF SPACE 
713" <194> u 
7066 PRINT"IBROHNIRTSPALEZZ ORANGEIR EL SorF aRAcE RVSON GRACEI" AHEON SEAEE er <54> 
SPACET HEREY>IILNTSPACE2 BROWN?" «133> 11033 PRINTTABtL2I "{RFSON SPACE RVSOFF $ 
7067 FRINT" {HP BROHNF+ „-{SRACEB} \ISPACE PACE RVSON SPACE RYSDFF SPACE RVSON SPAC 
4 BROKHN}_4n-TSPACEI GRANGE> CH I TSPACEA B E2 RVSOFF SPACE2 RYSON SPACE RVSOFF SPAC 
ROHN}_!{HGREY SPACEFITTSPACE BROWN>_+" x1560> E RVSON SPACE ARVSOFEF SPACE RVSOH SPACE R 
2G59 PRINT"{UF BROHN RYEON SPALEIO RWSOF VSOFF SPACE RUVSON SPACE" 21693 
FE}. {RUSON SPACE2 RUSOFFFFLRVSON SPACE2EI 11034 PRINTTAB{12F"TLRVSON SPACE RVSOFF S 
' <38> © 
3070 pomwrecaaBun un ausan onagzuoı 22 | Euler Anices nikon Sohck AuSGE? space 
9071 FRINT"{BROHN UP RVSON SPAGE4OF" <104> RVSON SPACE AVSOFF SPACE RUSON SPACE RW 
27 PRINT"{BROHN UP RVSDN SPACEZBILIVES SOFF SPACE RVSON SPACE>" er 1.7 
ACEZIZTSPACESFI" 65? 11035 FRINTTAB (12) "{RFSUON SPACEZ2 RUSOFF} 

u ET BE An 0 DIT 
ANNE ee SPACEZISCORE 1343 WISPACEFWIRVSON SPACE RUSOFEHFÄSPACEI WR 
SPACE. SPÄLE2S. VSEON SPACE RVSDFFIFISPACEIFISPACEI WERVSO 
7076 FRINT"{EROHN UR RVSON SPACEAOH" 109> N SPACE RVYSDFFIPF" RETURN <77> 
2080 FRINT”{UYPIIF" <44> 12000 REM -=-=-=- MENUE <D27% 
97090 PÜKEV+17 „PEEK (V+17}0R168: 5YS51200 x2273 12001 POKES3248+21,0 <124> 
9100 POKEV+30,0:5Y850200 - <2I6> 12010 GBSUB1 10004 PRINT" EDOWN2I 
9200 POKE214,6: POKE211,18:5Y559640 x0> a <1%9% 

nu ui 
22 ae epaee NOREY RVSON? Ih *167> 12015 PRINT" {RVYSONFL{RVSOFF SPACEI=TSPAC 

2 SPACE HGREY RYSON}_! E3RAUMER {SPACE VULCAND: {SPACEISEHRTSPACE 
* (204> >WENDIG" 2347 
9204 PRINTTAB(13) " {REDIGAMEISPACE HEREY, "| 12025 PRINT"{DOWN RVSONFZIRVSOFF SPACE)I= 
RVSOCHIEE" CLRVSOFF RED SPACEIDVER" “1457 LSPACEIRAUMERTSPACEFHYDRASTSPALCE} = {SPACE 
9205 PRINTTAB(17) "CHOREY SPACE2 RVSONY)%* }HOHE {SPAGEISCHUSSGESCHWA" <63> 
+ <214> 12035 PRINT"CDOHN RVSONISIRVSOFF SPACEI= 
9206 PRINTTAB(14) "{DOHN REDYNISPACEI=SR {SPACE} TODESZONE{SPACES} 3 {SPACEISPIEL{SF 
ACE}NEWISPACE YSAME" “1075 ACE} IM{SPACEIHDECHSTEN" 7 X250> 
7207 PRINTTAB(14)" {DOWN RED SPACEZIMISPA - 12035 PRINT"{SPACE2OFLEVELTSPALEIMITLSPA 
a a ne <x184> CEISUPER" nn <130> 
10 BETAFLFOKEV+48,RND 0) #15 <175> 19 " 
Er ee De 12037 FRINT"TEPACE2ZOFRAUMER{SPACEIPERBEU 2103 
Bee aa EN12000 oz 12040 PRINT"{DOHN2 HGREY SPACEZIZURTSPAC 
oc BuTaro0o see E3WAHLTSPACEINURTSPACEHENTSPREATSPACEITAS 
TE{SPALEIDRUECKEN" x253> 
ace REM ---- TITEL 35? 12080 GETL$ <4> 
2 <93> a zdf = 
11030 PRINT"ICLEAR HGREY SPACEIEISTSPACE 12062 aa nanekuleg: GOTO7000 Sa00> 
IFISPACEIATSPACEICTSPACEIE" x<247> 12084 IFL$="2" THENS=2: GOTO7000 <106> 
11031 PRINTTAB{I2)"CDOWNZ2 RED RVSOH SPAC 12084 IFL$="3"THENWeIl1:85=Sı F=eAı FX=4: BOT0O 
EZIÜKRVSOFE SPACE RUSONIPF{SPACEI WKRKSOFE 7000 <251> 
SPACE RVSONFWRVSOFF SPACE RVYSOHNFFERVSO 1%000 GDTO12030 <115> 











N ISK — Eddi a Ein hilfreiches Anwenderprogramm für den C-64 
Lid = | | | 





Dieses Programmgibtihnen die Möglichkeit Diskettenoperationen zu vereinfachen, Disketten 
zu initialisieren, die Directory zu listen, einen Schreib- oder Fileschutz anzubringen, den Na- 
men oder die ID der Diskette zu ändern und vieles mehr. 


Sobald das Programm gestartet wird, er- | 9 Starladresse anzeigen - Schreibschutz 
scheint ein Menue mit folgenden Punkten | A gelöschtes File reiten Man gelangt in ein Untermenue mit fol- 
auf dem Bildschirm: B Ladehilfe anhängen genden Punkten: 

0 Disk-Status 6 Disk überprüfen S - schützen 


1 Directory D Pregramm beenden F - freigeben 

2 Schreibschutz E Reset A - anzeigen 

3 Fileschutz Hier die Erklärung der einzelnen Menü- | Je nachdem, welchen Punkt man wählt, 
4 unsichthares Directory punkte: wird die Diskette geschützt, freigegeben, 
5 Disk Befehl serden - Disk-Stalus oder das Programm zeigt an, ob die Dis- 
6 Directory vor dem Laden schützen Der Disk-Status wird angezeigt. kette'geschützt ist, oder nicht. Nach dem 
7 Directory zerstören - Directory Schützen der Diskette können keine 


Schreiboperationen mehr durchgeführt 


8 offenes Fenster schließen Die Directory wird aufgelistet. 


5/86 


werden, außer, wenn man die Diskette 
hart formatiert. 


- Fileschutz 

Hier kann man einzelne Files vor dem Lö- 
schen schützen, (wirkt natürlich nicht, 
wenn man die Diskette formatiert) oder 
freigeben. Dazu muß man den Namen des 
Programms eingeben. 


- unsichtbares Directory 

Mit diesem Punkt kann ein Directory ge- 
gen Einblicke Unbefugter geschützt wer- 
den. Nach dem Laden des Directory er- 
scheint nur die Anmerkung READY. Einzig 
allein durch das Programm Disk-Eddi 
kann dieser Schutz aufgehoben werden. 


- Name oder ID ändern 

Der Name und die ID der Diskette (beide 
sind veränderbar) werden angezeigt. Zu 
beachten ist jedoch, daß der Name nicht 
länger als 16, die ID nicht länger als 5 Zei- 
chen sein darf, 


- Disk Befehl senden 

Man gelangt wieder in ein Unter- 
menue, diesmal mit folgenden 
Punkten: 

N-new 

S - scratch 

R-rename 

I - initiahze . 

'V - Validate 

A - Anzahl der Leseversuche 


Hier wieder die nähere Erklärung der 
Menüpunkte: 

N - new 

Der Computer erwartet getrennt die Ein- 
gabe von Name und ID. der Diskette. 


Drückt man bei ID nur RETURN, so wird: 


die Diskette weich formatiert. 


$ - seratch 
Das File, dessen Name eingegeben wird, 
wird gelöscht. 


A - rename 
Ein File wird umbenannt. Das Programm 


tragt nach dem bisherigen, und dem neu- | 
ein File erscheint dann - mit einem Stern 


en Namen. 


‘5/86 


I - initialize 
Initiafistert die Diskette. Diesen Menü- 
punkt wird man aber so gut wie nie ge- 
brauchen, da das Programm vor jederDis- 
kettenoperation die Diskette initialisiert. 


V- validate 
Ein Validate wird durchgeführt. 


A - Anzahl der Leseversuche ändern. 

Wenn die Floppy eingeschaltet wird, ist 
sie darauf eingestellt, 5mal zu versuchen, 
etwas zu lesen. Hat die Floppy nach die- 
sen 5 Versuchen immer noch Probleme et- 
was zu lesen, wird eine Fehlermeldung 
ausgegeben. Mit Disk-Eddi läßt sich die- 
ser Wert verändern. Nun besteht die Mög- 
lichkeit, daß man (vielleicht) auch Disket- 
ten von verstellten Laufwerken lesen 
kann. 


- Directory vor dem Laden schützen 
Versucht man von einer so geschützten 
Diskette die Directory einzulesen, so kann 
man lange warten, denn der Computer 
lädt, und lädt, und wenn ihm nicht die Si- 
cherung herausgeflogen ist, dann lädt er 
heute noch. Unterbricht man mit RUN- 
STOP so Kann man auch nichts erkennen, 
da die Basic Vektoren nicht richtig gesetzt 
wurden. Dieser Schutz kann wiederum 
nur durch das Programm „Disk-Eddi“ auf- 
gehoben werden. 


- Directory zerstören 
Das hört sich zwar brutal an, die einzelnen 


‚Programme. können aber dennoch weiter 


geladen werden, nur ist eben die Directory 
futsch!! Dieser Menuepunkt ist mit äußer- 
ster Vorsicht zu genießen, da dieser 
Schutz auch mit diesem Programm nicht 
wieder rückgängig gemacht werden 
kann. 

Ich verrate Ihnen aber nicht, wie diese drei 
Arten funktionieren, denn wenn man die 
Art des Schutzes kennt, kann man diesen 
auch wieder entschützen. 


{ - offenes Fenster schließen 


Wenn man Daten per Hand auf die Disket- 
te schreibt, ‚passiert es manchmal, daß 
man vergißt es wieder zu schließen. Solch 


Gompufes .mip 


programme 


(*) gekennzeichnet - hinter dem Filena- 
men in der Directory. Mit Disk-Eddi kann 
man so ein Programm jedoch schließen. 
Es ist ratsam, nach dieser Option ein Vali- 
date auf dieser Diskette durchzuführen, 
das File zu laden, und aufeine andere Dis- 
keite zu kopieren. 


- Starladresse anzeigen 

Die Startadresse eines Programms wird 
angezeigt. Das ist vor allem nützlich, wenn 
man ein Maschinenprogramm auf Disket- 
te hat, und die Startadresse nicht mehr 
kennt. 


- gelöschtes File retten 

Falls Sie unbeabsichtigt ein File gelöscht, 
und auf dieser Diskette inzwischen keine 
anderen Schreiboperationen durchge- 
führt haben, können Sie es mit diesem 
Menuepunkt retten. 


- Ladehilfe anhängen 

Man hat die Möglichkeit, an ein File in der. 
Directory eine Ladehilfe anzuhängen, d.h. 
im Directory erscheint ",8:“ bzw. “,8,1" 
hinter einem File. Man braucht also nur 
noch LOAD vor das entsprechende File zu 
schreiben und RETURN zu drücken. Das 
Programm fordert dazu auf, den Filena- 
men, sowie die Art der Ladehilfe, die an- 
gehängt werden soll, einzugeben. 


- Disk überprüfen 
Die gesamte Diskette wird auf defekte 
Blocks hin untersucht und in der BAM als 


‘belegt gekennzeichnet. Es werden keine 


Daten zerstört. Speichert man nun Pro- 
gramme auf dieser Diskette ab, so werden 
die defekten Blöcke nicht mehr benutzt. 
Es ist allerdings nicht ratsam, auf dieser 
Diskette noch ein Yalidate durchzuführen, 
da sonst alle als defekt erkannten Blöcke 
wieder freigegeben werden. 


- Programm beenden 
Der Cursor meldet sich am unteren Bild- 
schirmrand zurück, das Programm ist 
noch im Speicher. 


- Reset 
Nach einer Sicherheitsabfrage wird ein | 
Reset durchgeführt, 


‚programme 


Nach einige Hinweise: 

Wählt man einen Menuepunkt, so wird 
man aufgefordert, die Diskette, auf der die 
Schreiboperation stattfinden soll, einzule- 


Ist das Programm mit einer Operation zu | 


Ende, so wartet es auf eine Taste, und 
kehrt dann ins Hauptmenue zurück. 
Während die Directory aufgelistet wird, 


Hinweise zum Abtippen: 

Sämtliche Rems, sowie alle Leerzeichen 
außerhalb von Printanweisungen dienen 
nur der besseren Übersicht und können 

























































































gen und RETURN zu drücken. Zu diesem | kann man mit einer beliebigen Taste die | vernachlässigt werden. 
Zeitpunkt kommt man mitSHIFT/RETURN | Ausgabe anhalten. Nach einem weiteren 
zurück ins Hauptmenue. Tastendruck wird die Ausgabefortgestt IP + + SH SPP I FF SF 
8 :REMIHHHNBBBBIBHHIHHHBBHBBIHSBIHIHIHIHHHISHHIBBE — 175 LIESSEN® <171> 
1 :REM# #  <78> 118 PRINT "{RIGHT2 RVSON SPAGEIMTSPACE R 
2 :REmE ah ee <DEE VSOEF SPACE STARTADRESSETSPACEHANZEIGEN" <23> 
zzREmMEHHah BE oO HH 3 Ha hh <II 117 PRINT "{RIGHT2 RYSON SPAGEIITSPACE AR 
4 :REM HH # 3 Bee SO VSOFF SPACEIGELGESCHTESTSPAGE}I--ILEISPAGE 
S:REMEAHROHHN Oo BEh <180 +RETTEN" x<188> 
6 :REME ER oe eh 0 <239 120 PRINT "{RIGHT2 RVSON SPACEY-ISPACE R 
7 :REME# # «845 VKSOFF SPACEH ADEHILFETSPAGEFANHAENGEN” <119> 
8 :REMIHHHHRHHRBHBHHHEISBBIHISIBIBIHHHHIHHIHSSIHHIHD 7 255 121 PRINT "{RIGHTZ RVSON SPACEITTSPACE R 
9 :REM# # <BA> YSOFF SPACEITISKISPACEFÜUEBERPRUEFEN" <197> 
10 REM {C) NOVEMBER 1995 BY #» 1415 122 PRINT "{RIGHT2 RVSOH SPACEFTISPALE R 
ı1 REM# #735 VSOFF SPACEI ROGRAMMTSPACE}BEENDEN” <211> 
2 REM# KALI ENGERT # <12% 12% PRINT "{RIGHT2 RYSON SPACEI-TSPACE R 
13 REM# #  <75> VSOFF SPACEI_ESET" <B4> 
14 REM# WALDSARTENSTR.I #4 (246: 200 POKE 198,0 <72%> 
15 REM# # «775 210 BET ME$z:IF MEF="" THEN 210 <111> 
i& REM# 6842 BUERSTADT # <g0> 212 IF ME$="0" THEN 9000 <215> 
17 REME # «79% 213 IF MEF="A" THEN 11000 <170> 
18 REM# TEL. 1067206) 18223 # <«33> 214 IF MEF="B" THEN 12000 2189> 
17 REM# #  <Bl> 215 IF ME$="C" THEN. 13000 <209> 
20. REMSHHHRSBHHHBBBIHHHRHIHBIRBSS HIESS IHR DI 2177 2i& IF ME$="D" THEN 14000 L227> 
G5 REM Knenn Ken <210> 217 IF ME#="E" THEN 5006 <215> 
9& REM #* HAUPTPROSRAMM * <PA7> 2ı8 IF ME$="F" THEN 750 <42> 
97 REM Mn <21?2> 220 IF VAL {MEF<O OR VAL {MEFI>? THEN 2 
99 SI=34272:FORI=0T024: POKESI+I,O:NEXT <118> 10 «252 > 
437 POKE 53280, 17:F0OKE 53281,0:FDKE 646,1 230 ON VAL {MEFISDOTO 1000,7000,3000,4000 
2 <134> „3000 ‚6000 , 7000 „8000 , 10000 x194> 
100 FRINT EHR#114):PRINT CHRF(B} <2> 240 GOTD 210 _ <48> 
101 PRINT "{CLEAR RVSQNF"TAB{B) "ISPACESH 497 REM Bess <61> 
„eSeace)- (SPACE? VESPACE3 {SPACE2Y- (SPACE 4958 REM * PROGRAMM BEENDEN # <135> 
27 {SPACEI—-{SPÄCEI -TSPACEY- TSPACE2> “1503 497 REM et <a5> 
102 PRINT "tBOHNF"TABtLI)" CH TSPACEIOVE 500 5Y5 42115 <136> 
MBER{SPACE}1IBS" 2165 747 REM aa <88> 
103 PRINT TAB(135)" |Y{SRAGEI- +. TSPACEIT 748 REM * RESET * <180> 
-_# <br> 749 REM suxeHaeree <90> 
104 PRINT TAB(12) "SALDGARTENSTR. ISPAGE>1 750 PRINT "{CLEAR DOWN?YCOLLEN{SPACEI VIE 
" 1595 {SPACEYWIRKLICHTSPALEFEINTSPACEI ESETISER 
105 PRINT TAR(13) "6B4215PACE} IUERSTADT" SF1> ACE+AUSLOESEN?" <146> 
105 PRINT TAB{12}"} EL. (06206) /8223" “2365 760 POKE 178,0 <122> 
108 PRINT "{DOHN RIGHT2 RVSON SPACEIOLSP 770 BET QF: IF Q#= "" THEN 770 <119> 
ACE RVSOFF SPACEI-ISKTSPACEI OTATUS" <204> 780 IF Q$= "T" THEN PRINT "{DOHN2 RIGHTS 
109 PRINT "iRIGHTZ2 RVSON SPAGEFITSPACE R >%2DIEULSPACEF TI TSSFOR Iei TO 1000: NEXT3 
VSOFF SPAZEI- ITRECTORY" x35> SYS 64758 <156> 
110 PRINT "{RIGHTZ RVSON SPÄACEYDISPACE R 790 IF Q$="N" THEN RUN <248> 
VSOFF SPAGEI WCHREIBSCHUTZ" <44> 800 GOTO 770 <127> 
ill PRINT "{RIGHTZ RYSOH SPAGE>STSPACE R . 9277 REM suennnannener <135> 
VSOFF SPACEI-ILESCHUTZ" <101> 978 REM * DIRECTORY = <47> 
112 PRINT "{RIGHT2 RVSON SPACEYATSPACE R 999 REM Kuren <137Fr 
VSGEF SPACEIUNSICHTBARESTSPACEI-IRECTORY 1G00 PRINT "{CLEARF" TAB{1A) "ERYSON SPA 
" <1B1> CE3-IRECTORY{SPACE RVSOFF}"SGOSUB 20000: 
113 PRINT "{RIGHT2 RVSON SPACEISTSPACE R FOKE198,0 <i48> 
VSOFF SPACE3SÖMETSPACEHODER {SPACE —ISPA 1010 DPEN 1,8,0,"#" <50> 
CEFAENDERN" 2155> 1020 GET #1,A#F,BF 2206> 
114 PRINT "{RIGHT2 RVSON SPACEIGTSPACE R 1030 GET #1 ,A$,B# <217%5 
VSOFF, SPACEI—-ISKISPACE> |EFEHLTSPACEISEND 1046 GET #1,A#,B# «227> 
EN" «1453 1050 IF At="" THEN A$S=CHR$ (0) <193> 
115 PRINT "<RIGHT2 RVSON SPACEYT{SPACE R 10580 IF B$="" THEN B#=CHRF (0) 2213> 
VSOFF SPACE} LRECTORY {SPACE FVORISPACEILA 1070 BL=ASC (A$}+256*ASC (BF) “215> 
DEN{SPACEFSCHUETZEN” “229> 1080 PRINT BLTAB(F); Sr 
116 PRINT "{RIGHTZ RVSON SPACEIBISPACE R 1090 FOR I=i1 TB 24:G6ET #1,H$ «70> 
VSOFF SPAGEITIRECTORY{SPACEIZERSTOERENTS 1100 PRINT At; NEXT <241> 
BACE}KZORSICHTII" <6ir 1110 BET #1,A$:PRINT As$ <17&> 
117 PRINT "{RIGHTZ RVSON SPACEIFTEPÄCE R 11720 GET #1,A2,As,A$ 29A> 
VKSOFF SPACEFOFFENESTSPACE} -ILETSPAGEFSCH 1150 GET #1,At: IF As="" THEN AF=CHRF (0) <98> 
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1140 GET #1,B$:IF Bf="" THEN B$=CHR$ (0) 1375 3005 OPEN 1,8,15,"I":0PEN 2,8,2,"#" x70> 
1150 IF ST<>O THEN 17220 <239> 3010 PRINT# 1,"UL{SPACEIZISPACEFOTSPACEH 

1160 BL=ASC (A$)+256rASC (BE) 49% LI{SPACEIO" 170> 
1170 PRINT BLTAB(Fs x181> 3020 PRINT# 1,"B-FISPACEFZISPACEI?" “37 > 
1180 FOR I=1 TO 24:6ET #1,AF <174> 3030 GET #2,0$ <123> 
1190 FRINT Af3; NEXT <75> 3040 IF QOF="A" THEN 3050 <212> 
1200 GET #1,A$:PRINT AF:GOSUB 1300 x59%5 3045 FRINT "{DOHN23 WCHREIBSCHUTZ{SPACE?B 

1210 SDTO 1120 «2495 ITTE{SPACEIENTFERNEN{SPALCE} ":CLOSE 2:60 

1220 ELOSE i <202> TO 6700 <889> 
1230 G0TD 21000 <34> 3050 FRINT "{DOHN} | ITTETSPACEIWAEHLENISP 

1300 IFFEEK (198) =0THENRETURN 22083 ACEISIE" x189> 
1310 POKE193,0:KAITIFB, 1:POKE19B,O:RETUR 3053 PRINT "{DOHN2 SPALEPIWISPACEI-TSPAC 

N <121> E}SCHUETZEN" <218> 
1997 REM aunnnnnenaananker <71r 3055 PRINT "{DOHN SPACEZI-ISPACEI-TSPACE 

1799 REM * SCHREIBSCHUTZ * x220> +FREIGEBEN" <135> 
1999 REM suunnnnnneee <F3> 3040 GET O$:1IF QO$="" THEN 3050 <10> 
Z000 PRINT "{CLEARF" TAB(12) "LRYSON SPA 3070 IF Q$="5* THEN 3100 <49> 
CE} YCHREIBSCHUTZ {SPACE RUSOFFF"EOSUB "20 3080 IF Q$="F" THEN 3250 <47 > 
O00 <186> 3099 60TU 3040 <101> 
2010 PRINT"{DOKNF | ITTEISPACEFWAEHLENESPA 3100 PRINT "{DOHN2Y AMEISPACEFDES{SPACEI 
CEISIE" <i16F> ZUTSPACEHSCHUETZENDEN {SPACE -ILES" = INPUT 

2013 PRINT "{DOHN2 SPACE2IMHSPACEI-ISPAC NAF <i166> 
E}SCHUETZEN" <1i98> 3110 G0S5UB 3500 <116> 
2015 PRINT "{BOWN SPACEZI-{SPACEI-TSPACGE 3120 PRINT# 1,"B-PISPACEY2",1I1%32+Z2 <165> 
+FREIGEBEN" <249: 3150 GET #2,0%: IF QO8="" THEN X#=CHR$ (0) <118> 
2017 FRINT "{DOHN SPACE2YSTSPACEI-TSPACE 3140 Q=ASEC (BF) <131> 
+ANZEIGEN" <172> 3150 IF (B® AND 54)=0 THEN 3170 <247 > 
2020 POKE 198,0 <107> 3160 PRINT "{DOHN}-ILEISPACEYTSTESPACEIB 

2050 GET O$: IF 0$="" THEN 2050 “202> EREITS{CSPACEIGESCHUETZTISPACEF  "SCLOSE 2 

2040 IF Q$="S" THEN 2100 <30> :GETO 6700 <72%5 
2050 IF @$="F" THEN 2200 “229> 3170 Q=t@ OR 69 <71> 
2060 IF O$="A" THEN 7300 <219> 3180 PRINT# 1,"B-PISPACEI2", 11#32+2 <225> 
2970 GOTO 2050 <87> 3190 PRINT# 2,CHR& (MW; <195> 
2100 PRINT "{DOHN> >SCHUETZEN" <182> 3200 PRINT# 1,"B-P{SPACEIZISPACEFO" <196> 
2105 OPEN 1,9,15,"1":0PEN 2,9,2,'#" <191> 3210 FRINT#H 1, "U2ISPACEYZISPACEIO"STRSSE <21> 
2110 PRINT# 1,"UIISPACEIZISPACEIOISPACEN 3220 CLOSE 2:6010 4900 <170> 
1ILSPACEIO" <191> 3250 PRINT "{DOWN23 AMELSPACEYDESTSPACE} 

2120 PRINT# 1,"B-PISPACEFZISPACEI2" «1587 FREIZUGEBENDEN {SPACE} ILES"= INPUT NAF <105> 
2130 PRINT# 1, "M-WCHR$ CLICHRE TLICHRE 3240 GOSUB 3500 <10> 
GLICHRSE 1685} «Ihr 3270 PRINT# 1,"B-PiSPAcEr2"; T1r32+2 <59%5 
2140 PRINT# 1,"B-P{ISPACEYZISPACEFZ" <178> 3280 GET #2,08: IF Q#5="" THEN X#=CHRE (0) <172> 
2150 PRINT# 2,"@" «2155 3296 R=ASE (08) <25r 
2150 PRINT# 1,"UZCSPACEFZ2ZISPACEIOTSPACE 3300 IF {DB AND 44)=44 THEN 3320 <17> 
19{SPACEIO" <247> 3310 PRINT "{DOHN> -ILEISPACEYISTESPACEIB 

2170 ELOSE 7:G0TO 5900 x140> EREITS{SPACEIFREIGEGEBEN {SPACE} !":CLOSE . 
2200 PRINT "{DGKN} YFREIGEBEN” <S50> 2:6070 4900 “73 
2205 OPEN 1,9,15,"I":0FEN 2,8,2,"#" <355> 3320 Q=t@ AND 255-654) <110> 
2210 PRINTB 1, "DITSPACEYTISPACEFOTSPACE} 3330 PRINT# 1,"B-PISPACEI2", 11R32+2 <120> 
19{SPACEIO" x35> 3340 PRINT# Z.CHRS (D): <90> 
2220 PRINT# 1,"B-P{SPACEIFTSPACEID" <2> 3350 PRINT# 1,"B-PISPALCEIZTSPALCEIO" <91> 
2230 PRINT# 1,"M-W"CHRS (1ICHRF (LICHRE 32360 PRINTH 1, "UZISPACEIZISPACEIO"STRISE <172> 
XLICHRS 165) “1365 3370 CLOSE 7:60T0 5900 <65> 
2240 PRINT# 1,"B-F{SPACEHZISPACEH?" 205 3500 TR=18:5E=1 ' <t52> 
2250 PRINT 2,"A" «235» 3510 PRINT# 1,"UITSPACEFTISPACEIO"STRISE <b0>: 
2260 PRINT# 1 ,"USISPACEIZISPAGEIOLSPACE? 3520 PRINT# 1,"B-PIBPACEFZISPACEIO" x5> 
1B{SPACEFO"” z91> 3530 GET #2,TR#z IF TRS="" THEN TRS=CHRF 

2270 CLÜSE 2:60T0 5900 z240> (0) 2363 
2300 PRINT "{DOHNF -ANZEIBEN" <115> 3540 GET #2,5E$#: IF SEF="" THEN SES=-CHRS$ 

23505 OPEN 1,8,15,"1"10PEN 2,8,42,"#" s136> (0) x15> 
2310 PRINT# 1,"UI{SPACEIZISPACEIOTSPACEN 3550 FOR 11=0 TO 7 <162> 
1BISPACEIO" <136> 3580 PRINT# 1,"B-P{SPACE}2"; 11#372+5 <1589* 
2320 PRINT# 1,"B-P{SPACEIZISPACEI?2" <103> 3590 IIs="" <153> 
2550 GET #2,0$ <1895 3500 FOR I2=d TO 15 <86> 
2340 BSASC (OFHCHRE(O)) 22» 3610 GET #2,1# <134> 
2350 IFOQ=45THENPRENT" CDOHNF--IEISPACEI-IS 3620 IF I$=CHR$ (150) THEN 3450 «1723 
KETTETSPALEFISTISPACEINICHT SPACE IGESCHU 3630 II$=IIs+I$ <179> 
ETZT":60107370 <190>7 3540 NEXT IZ 2240> 
23560 PRINT" {DOHNI-IETSPACEF -ISKETTETSPAC 3656 IF II$=NA# THEN RETURN <120> 
E+HISTESPALEFIGESCHUETZT" <201> 3640 NEXT 11 <1> 
2370 CLOSER:BOTOAFOO <85> 3670 IF ASC (TRFI=0 THEN 36490 <21A> 
29977 REM HEHE X213> 3680 TR=ASC £TRF) :SESASC (SEFI:GOTO 3516 <244> 
2998 REM # FILESCHUTZ * Lans> 3690 PRINT "_ILEISPACEINICHTTSPACEIGEFUN 

29979 REM KH <215> DENLSPACEF "LCLGSE 2:6G0T0 5900 <175> 
3000 PRINT "T{CLEAR}" TAB(LM) "{RVSON SPA 3997 REM RHRSBISHHRHIRIARIHIHIIHRSISHHIER RE <21> 
CE} ILESCHUTZ{SPACE, RYSOFEF"SBOSUB 20000 «196> 5998 REM * UNSICHTBARES DIRECTORY * <62> 
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programme 


999 REM EEE 
4000 PRINT "{CLEAR}" TAB(B) 


OFF>":GOSUB 20000 
2005 OPEN 1,8,15,"1":OPEN 2,8,2,"#" 


4010 PRINT A CDOHN | ITTELSPALEFWAEHLENTSP 





SCE:SIE” 
401% PRINT "{DOHN2 SPACE??? ASPACEF-TSPAC 
ErUNSITEHTBAR{SFPAGCEI MACHEN” 

401& PRINT "{DORN SPACEZIWISPACEI-TEPACE 
3SICHTBAR{SPACES? " " (SPAGE2F" 

4018 POKE19B,0 

4020 GET OF: IF QOF="" 





THEN A020 





4030 IF Dz="L" THEN 41009 

4040 IF Df="S5" THEN 4300 

4050 GDTD 4020 . 

4100 PRINT CDIHN> FUNSICHTBARISPACEMACH 
EN{DOHN} 


4103 PRINT# 1, "WBILSPACEIZISPACEFOTZSPACE 
ISHSPACEIO" 

3104 PRINT# 1,"B- -PISPAGEFZTSPACEILAAN:GE 
T #2,08 

4105 IF O#=CHR$ (70) THEN PRINT "-IRECTD 
RYISPACE}ISTTSPACEIUNSICHTBAR":CLOSE 2:6 
DOTO 6700 

4110 FOR I1=0 TO SıPRINT# 1,"B-FISPACEF2" 
sıa4+1 

4120 GET #2,1# \ 

4130 FRINT# 1,"B-FISPACEIZ",250+1 

4140 FRINTE 2,185 :NEXT I 

4140 FRINT# 1, SPACE 

4170 FRINT# 2,CHR$ 120) ; CHRF (20); CHRE 
ZO),CHR$ (0); CHRS NM :CHRF (05 

4170 PRINT# 1 "UZLSPACE} PISPACEIOTSPACE 
18{SPACEFG" 

4209 PRINT# 1,"T1" 

4219 CLOSE F:60T0 8900 

4300 PRINT "{DOHN} >SICHTBARTSPACEY MACHEN 
SDOHRI" 

4303 PRINT# 1,"WITSPACEFZTSPACEFOTSPACEI 
1BISPACEIO” 

4304 FRINT# 1," B-PFI3PACEFFES SPACE}L44":GE 
T 32,08 

4305 IF BSX>CHR$ 120) THEN FRINT "-IRECT 
ORY{ISPACEF ISTISPACEYSIEHTBAR":CLOSE 2:60 
TI 6700 

4310 FOR I=0 TO S:PRINT# 1, 
;s250+1 

4320 GET #2,IF 

20 PRINT# 1,"B-FPIEPACEIZ"S 14441 

4340 FRINT# 2,I#;:NEXT I 

435G PRINT# 1,"B-P{SPACETZTZPACEHZSO" 
4350 FÜR I=0 TO 5:PRINT# Z,CHRE (0) 3 :NEX 
1 

4370 FRINT# 1,"UZISPACEFFTS 
IB{SPAGEFUO" 

4380 FRINT# 1,"1" 

43906 CLOSE 2:G0709 6700 
A397 REM RREHRREN IHRER EHRE HE 

4798 REM &® NAME ODER ID AENDERN #* 

4999 REM Hr EHE 

zn PRINT "ICLEART" TAB{FI "IRVEON SPAC 

SAMELSPACEFDDER{SPACE3 - DISPACEFAENDERN 

space RYSQEFF"LGOSUR ZO0oo 

5005 OPEN 1,8,15,"T"’:OPEN 2,8,2,."#" 

5010 FRINT# 1, "UL CSPACEFZLSRACEIOLSPACEI 
tS{SPACEIO" 

5020 FRINT# 1, 
gan 

5030 FOR I=0 TO 15:6ET #2, 
NEXT 

soac FRINT "{DOHN2} AMEISPACEIDERTEPACE} 
-ISKETTEISPAGENS SPACE RUSBN N3"s II$ 

5059 FRINT# 1,"B-FiISPfACE>ZEE SPACEILAZ":II 
$= a0 





"B-PISPACEI?" 


SPACEIDISPACE} 


VB-PISPACENZCSPACEI AA" II 


If: II#=Iis+rit: 





“{RVSON SPAC 
E3UNSICHTBARESTSPACEFTIRECTORYISPACE VE 


er 


<47 > 


<50> 


<127%7 


“137 
Saar 
z162> 
<10> 
{28> 
“265 


<43> 


<144> 


1403 


146: 


S15dr 


985 

x117> 
“2455 
“140> 


«1625 
<109> 
<b> 
1795 


REF 


<BL?r 


z4l> 


SEO 


ABO 


Far 


1875 


<il6> 


21015 


=0&0 FOR I=si TO S:GET 42,1: 1IIsellsrlIs:N 
EXT 

5970 FRINT "IDDOuUNT- D{ISPACEFDERTSPACEFT-IS 
KETTEISPACEZY: TBPACE RYSON!I"SIIS 

Sog0 FRINT "{DOkNZ RVSON: FERVSOFFIAMELSP 
ACEZODERTSPACE U RVSONF- IRVSOFFIDISPACEIAE 
NDERN{SPACEY?" 

5090 FOEE 178,0 

5100 GET Of:IF Q$="" THEN 5100 

5110 IF QO$="N" THEN 5200 

5125 IF Qt="1" THEN 5500 

51390 6010 5100 

5700 PRINT# 1 "WI BPACEFZISPACEIOTSPACE} 
IB{SPACEIO" 

S?ı1öo INPUT "{DOHN}. -EUER{SPACEINAMEIZPACE 
3", IiE 

==20 IF LEN {IIP)>15& THEN PRINT "ZULISPAC 
ErLANG!T"EGOTO 510 

ZrE0 PRINT# 1, "B-P{SPACEIZISPACEFTA4A" 
5240 FOR 1-1 To LEN {IF 

57250 PRINT# 2,MID# (IIF,I,12)5=NEXT 

5255 IF LEN {II#)=1&4 THEN 5290 

240 FOR I=LEN {II# TOD 16 

5270 PRINT# 2,CHR$ (15073:NEXT 

5780 PRINT# 1,"UI{ISPALCEFZISPACEIVOTSRACEH 
18{5PACEI0" 

5270 PRINT# 1,"1":CLOSE 2;50TD 5900 
5500 PRINT# 1, "ULISPACEFZTEPACEHOTSPACEN 
1B{SPALEIO" 

S310 INPUT "{DOWN}NEUE SPACE PACEY- DISPACEY"S 
II$ 

s320 IF LEN {11#):5 THEN PRINT "ZULSPACE 
3LANG":GOTO 5310 

=330 PRINT# 1,"B-PISPACEIZISPACEITOEN" 
5340 FOR I=1 TO LEN (11I#) 

5350 PRINT# 2,MID#& (11#,1,1)3:2NEXT 

5355 IF LEN (11#)=5 THEN 5380 

S3h0 FOR ISLEN (TIs) TO 5 

5370 FRINT# Z,CHRF {18095 :NEXT 

5380 PRINT# 1, "U2ZISFACEIZISPACEFOISPACE} 
1B{SPACEIO" 

5370 O FRINT# 1,"I":ELOSE 236010 4900 
5997 REM EHRE NERREEE 

5995 REM * DISK BEFEHL SENDEN #* 

5999 REM BEER 

6000 PRINT "{CLEAR?”" TARI1O} 
CE3-ISKISPACEF VEFEHLISPACEFSENDEN{SRÄCE 
RYSOFF>"3GOSUB 20000 

6016 PRINT "ISPACE2IFTSPACERI-TEPÄCEF FE 























we 

&020 PRINT "ISPACEZIWISPACERI-TSPACERSW 
RATCH" 

680350 PRINT "{SPACE2YI_CSPACEZI-TEPACEI}E 
MAME" 


6040 PRINT NESRACE2YI- TSPAGEZF-TSPACEZF-N 
IFIALIZE" 

5050 PRINT NISPACEZITKASPACEZY-{SRACETITÄ 
LIDATE" 

&0ä0 PRINT "ISPACETFTSPACEZF-TSPACEZTF AN 
ZAHLISPACEHDERTSPACEN ESEVERSUCHE" 

5070 FOKE 178,0 

56100 GET Q$: IF Og="" THEN 6100 

&i10 IF Os="N" THEN 6700 

6120 IF D+="S" THEN 5300 

6430 IF GBs="R" THEN 44090 

6140 IF BS="1" THEN 6500 

8150 IF Qs="y" THEN 6600 

8140 IF Bt="A" THEN 6700 

&170 GOTO 8100 

6177 REM ##rHHH* 

#199 REM #NEW# „. 

64197 REM #uHaKır 

6200 FRINT "{DOHN23>-EW" 

&210 ENPUT a SDOHN>—-ISKTSPACEr AMETSPACE> 
"NAF 





MDaamsıba mi 


ERVSON ZPA 


s1427 


<Ag> 


SEPr 
x1177> 
x219> 
STE 
IF 


<B4r 
«2213 
“1495 


1795 
aaR: 
x91> 
x707 
“36> 
“23B> 
1317 


x51> 
x<B9% 


Saas? 
<117> 


“246> 
x127% 
<s1971> 
<170> 
387 

<246> 
“23517 


x152> 
<190> 
49> 
<125> 
x51> 


36> 


er 
SOFT 
„al 
Saar 
<ua> 
<x100> 
<br 
“1857 
<59> 
<106> 
x1545 
LI22> 
21565 
“1235 


ı207> 
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6220 INPUT "DISKISPACEY- DISPACEZ3Y":1IDE 
6230 OPEN 1,8,15,"N: "+NAt+" "+IDE 

62740 GOTO 5700 

6297 REM Bst 

5298 REM * SCRATCH # 

5797 REM Kuren ak 

65300 FRINT "tDORNZSTFWERATCH" 

83510 PRINT "-AMETSPACEIDESTEPACEF ZUISPAC 
EH-OESCHENDEN{SPACE}- IALES=" 

553709 INPUT NAF 

6550 OPEN 1,8,15,"55 "+NAF 

5340 G0TB 59700 

65377 REM vun 

63978 REM * RENAME * 

6397 REM Herner 














6400 PRINT "{BOHN2} >_ENAME" 

#410 INPUT "{DOHNYNEUER{SPACE? AMELSPACE 
F"SNE$ 

6420 INPUT "ALTERTSPACE? AMELSPACEF" sAL® 


6430 OFEN 1,9,15,"R: "+NEFH"="+AL$ 

44406 GOTO 6700 

54377 BE KERNE 

649B REM * INITIALIZE * 

5AFF REM SRH 

6500 PRINT "{BOHNZYF-NITIALIZE" 

5510 OPEN 1,9,15,”" I" 

8320 GOTO 49700 

4597 REM HERAN 

6578 REM * VALIDATE # 

6597 REM KREREEREHERR 

&500 FRINT "IBOHN2FISALTDATE" 

5610 OPEN 1,8,15,'"W" 

6520 GRTO HYOG 

SET REM RER EEE 
&b9B REM #* ANZAHL DER LESEVERSUCHE %* 
SHFPF REM KERNE HH RN ER RE 
6700 PRINT "{BOKRKN2FTANZAHLTSPACEN ESEVER 
SUCHE" 

6710 OPEN 1,8,15 

68720 FRINT# 1," M- -R" EHRE CLOGICHREF LO) CHR EL 
iı} 

5750 GET# 1 ,Ats IFAF="" THENAF=CHRE LO) 
&740 A=ASC{AF):FRINT "{DOHN RIGHTYMNIAHL 





ISPACEFDERTSPACEFLESEVERSUCHETSPACE> IMS. 


PACETDOMENT"A 


6750 PRINT" {DOWNFAENDERNISPACEI CI IDOH 


N23"ı POKEL98,0 
6760 GETAF: IFAF=""THENG7EO 

6780 IFA$="J"THENGBOO 

6785 IFA#="N"THENCLOSE1:RUN 

67970 GEDT06740 

6800 INPUT "CHPIWIEVIELETSPACE}L ESEVERSU 
CHE"3 A$ 

&E1O A=VAL (A$) ı IFA<OHRA>25S THEN GOTD & 
809 

682C FRINT# 1,"M-W"CHREFLIOSICHRE (OF CHRE ( 
IICHRE (A> 

6830 BOTB 4700 





ab PRINT "IDOWN}” 
8905 GET# 1,AF:PRINTAF IF GTS>764 THEN GG 
OTU 6705 


&F710 TLOSE 1:60T0 1000 

EIIT REM IRRE EEE EHE 
** 

56798 REM #* DIRECTORY VOR LADEN SCHUETZEN 
* 

EPFPF REM EHRE EN EN FRITHEHNNRE N ERR 
“r \ 

7090 FRINT "ICLEARS” TRBtA) "ERVSON SPAC 

Er -IRECTDRY{SPACEIVORLSPACEIL ADENISPACE)} 


SCHUETZEN{SPACE RYSOFF}":GOSUB 20000 














7003 PRINT "{DOHN} | ITTETSPACEIWAEHLENESER 
ACEISIE" 

7005 PRINT "{DOHN2 SPACEIWESPACEI-TEPACE 
}SCHUETZEN" 


“93 
63? 
x200> 
<22&> 
745 
2285 
EFF 


<rarr 
b0r 
ie 
<a4> 
x78> 
520475 
<BO> 
<188> 


xD? 
<B1> 
<1893> 
<145> 
x143> 
<1IF> 
x145> 
<2d> 
ıb7r 


225: 


“475 
<B2Hr 
<51> 
«2315 


 s4l> 


<aF:> 
585 
«DE 
L7OF 


x147: 
<a2n 


2063 
xg8> 


<217> 


2305 
1405 
sZ01> 
xo> 
“23 


Sbä: 
<21> 
«121% 
224% 
“1665 


“1295 
x140> 


programme 


7007 PRINT "{DOHN SPACE} SPACE? -TRPACE} 
FREIGEBEN" 

7010 FOKE 178,0 

7020 BET O$: IF Üf="" THEN 7020 

7030 IF G$="g" THEN 7100 

7040 IF Gf="F" THEN 7400 

7050 GOTO 7020 

7100 PRINT "{ROHN} >SCHUETZENTDOHNS" 


7105 BGFEN 1,8,15,"1":UOPEN 2,8,2,"#"cX=1 
7110 FRINT# 1,"ULISRACEFZIAPÄATEIOLSPACEI 
ia'X 

7120 FRINT# 1,"B-FISPACEFZISPACETO" 

7130 GET #2,As: IF At="" THEN AF=CHRE (6) 
7140 GET #2,HB$:IF Bs="" THEN B$SCHRF (0) 
7150 A=ASG (AFf}=B=AScC (Br) 

71a0 IF A=0 AND B=255 THEN 7190 

7170 IF A=19 AND Bet THEN 7300 

7190 KuB: SOTO z7ı10 

7190 FRINT# 1,"EH-FISPAGEFPESPACEIO" 

FZoO PRINT# DCHRS 18) sCHRE (193 

7?10 FRINT# 1,"UTISRACEFTISPACEFOLBPACEI 
18"X 

7720 PRINTF# 1,"1":CLOSE 2:6G0f0 4900 

7300 FRINT "{DOWNZI--IRECTORYISPACEISCHON 
XSPACEFVORTEPACEIDEMISPACEIL.ADENISPÄACEFG 
ESECHUETZT" 

7310 CLOSE 2:601T0 3900 

400 FRINT "IDOHN:DFREIGEBENTRORNI" 

7405 OFEN 1,8,159, "U":OFEN 7,8,2,'#":X=1 
7310 FRINT# 1L,"ULTISPACEFZXSPACEIOHSPACE) 
18"X 

7420 PRINT# 1,"B-P{SPACEFZIEPACEO" 

7430 GET #2,A#: IF At="" THEN AF=CHRE (0) 
734930 GET #2,B#: IF B#="" THEN BF=SCHR# (0) 
7450 A=ASC (AF):-B=Asc (Bf) 

79450 IF A=18 AND B=i1 THEN 7490 

7470 IF A=0 AND B=255 THEN 7500 

7480 X=B:60T0 7410 

7490 PRINT# 1,"B-FXZPACEFZISPALEIO" 

7500 PRINT# 2,CHRE (O),CHR# (255}3; 

7510 PRINT# 1, "USISPACGETZISPACEFOTSPACE, 
19"X 

7520 PRINT# 1,"I":CLOSE 2:6G0OT9 5960 

7600 FRINT "tBOHNZF-IRELTORYISPACEHISTIE 
PACEFLADEFAEHIG" 

7810 ECLUSE 26010 HYod 

FFPFT7 REM RR 

7778 REM *# DIRECTORY ZERSTOEREN * 

FIFF REM RR REHIH RR EEE 

8000 PRINT "ICLEARF" TAB(9) "IRVSON SPAC 
Ex -IRECTORYISPACEHZERSTOEREN{SPACE RYSOR 
Er"SGOSUB 20000 

8005 FRINT "SIND{ISPACEISIETSPACEYSICHER, 
DASISPACEFSIETSPACEIDIETSPACEHDIRECTORYE 
SPACEIFZERSTOERENTSPAGEIWOLLENTSPACEFTIL 
SPACEI"z 

8010 POKE 178,0 

















8020 GET BF:IF Qf="" THEN 8020 

8030 IF Q#F="J" THEN PRINT " \"AVY:GOTO 81090 
8049 IF Q#+="N" THEN PRINT "-EIN":6DOTO 71 
000 


3050 EOTO 8020 

8100 OPEN 1,8,15,"I":0PEN 2,9,2,"#" 

8110 PRINT# 1,"UL{SPACEIZISPACEFOLSPACE? 
18{SPACEIO" 

8120 PRINT# 1,"B-PISPACEFZISPACEI 144" 
3130 PRINT# 2,CHR$ (ZOJICHRE (ZO)CHRF (20 
IJCHRE TSAICHRE tZOICHRF (ZIICHRE (204135 
8130 FOR I=1 TO 20:PRINT# 2,CHR& tÖ)s:NE 
xT 

8150 PRINT# 1, 
1BISPACEIO" 
8160 PRINT# 1,"I":CLOSE 2 

8170 PRINT "{DOHNZ2>-IRECTGRYISPACEIADE, { 
SPACE} WCHNUEFFTSPACEr \ 














Gemnufs miP 


MUSISPACEHZTSPACEFOTSPACEI 
SACE SIATE 


<17> 
253% 
<138> 
“2215 
De 5 9 
<228> 
LITE 
<A4: 


174° 
IS: 
9.2: 29 
A177 
DS 
2118> 
«1655 
245 
<1067 
19745 


2Gr 
SEaSSR 


X1385 
2180 
21663 
x<B7 > 


Sp 
sB0> 
x26> 
Söyr 
ASP 
APIS 
<ila> 
xF0> 


151: 


zi21F 


{70> 
«245 


"175 
225r 
x17> 
21465 
Sal 


+15#> 
“253r 
<iFI0> 
<117r 


“254: 
<210> 
“653 


x70> 
<114> 


x200> 


<153> 


<116> 
<150> 


x167> 


1. 


programme 


1? 


8190 GDOTO A700 

8997 REM teens 

899798 REM * DISK STATUS # 

8797 REM KRUNKERERREKRER 

20909 OPEN 1,8,15:PRINT "CHOHE DOHNE RIEH 
Ts RVSON>";S 

9010 GET #1 ,DO$:FRINT OB$; 

9020 IF ST<>&44 THEN 9010 

F030 CLOSE I:FOKE 198,0:WAIT 198,1 

9oA0 RUN 

9937 REM KERNE TEE 
9998 REM #* GFFENES FILE SCHLIESSEN * 
99977 REM ER EEEEKTEENEERERR 
10000 PRINT "ICLEARF" TABt7TI "IRVSON SPA 
CE>OFFENE{SPACE}—-ILETSPAGE>SCHLIESSEN{SR 
ACE RVSOFF>":GOSUB 20000 

10005 OPEN 1,8,15,"1":0FEN 2,8,2,"#" 
10010 PRINT "{DOHNF-AMEISPACEIDESIBPACE 
ZUCSPALEISCHLIESSENDEN {SPACE} —-ILES" = INPU 











T SCH 

10020 TR=18:5E=1 

10050 PRINT# 1,"U1LSPACEFZTSPACEIO":ZTR3S 
E 

100409 PRINT# 1,"B-P{SPACEYZTSPACEFO" 
10050 GET #2,A$: Ir Af="" THEN AF=CHRS (0 
H 

10050 GET #2,B#:1IF B#="" THEN BF=CHRF 10 
i) 

10070 FOR I=0 10 7 

10080 PRINT# 1,"B-PISPACEY2"1#32+5 

10090 FOR I11=0 TO 1H:6ET #2,IF 

101090 IF I#=CHRF (180) THEN 10130 

10110 II$#=Il1s+1# 

10120 NEXT II 

10130 IF IIS=5C# THEN 10200 

10140 II$="":NEXT I 

10150 IF ASC (AF)=0 THEN FRINT "{DOHN2>.- 


ILE{SPACEINICHT{SPACEHGEFUNDEN" =: G0T0 102 





90 

10160 TR=ASC (A#) :SE=ASC (BEI :GOTO 10030 
10200 FPRINT# 1,"B-F{SPACEIZ"1#32+2 

19210 GET #2,A#s IF As="" THEN A$=CHRF+ (0 
) 

10270 A=ASC tA$) 

102530 IF tA AND 12E8)=128 THEN PRINT "iDO 


HA23_ILEISPACEIHSTEHT {SPACEFNICHTISPALCEIO . 


FFEN":60TO 10290 

102409 A=iA DR 128) . 

10259 PRINT# 1,"B-PISPACEIHE" IR52H2 

102650 PRINT# 2,CHRE {A}; 

10270 PRINT# 1,"UZISPACEFZISPACEFO"STR:S 
E 
10280 
102970 
10997 
10778 


FRINT# 1,"I" 

ECLBGSE 2:6070 8900 

REM RER HENKE 

REM * STARTADRESSE ANZEIGEN * 
10997 REM RER HERE TERN 
11000 PRINT "{CLEARI" TAB{B) "IRVSOH SPA 
CEFWTARTADRESSE ISPACEFANZEIGEN{SPACE RVS 
UFFI":GUOSUB 29000 

11005 FRINT "-AMEISPACEIDESTSPACEF- ILES, 
BESSEN{SPACEFWTARTADRESSE TSPACESYANGEZEI 
GTISPACENWERDENTSPACEHFSOLL" 





11010 INPUT NA& 

11020 OPEN 1,8,15,"I":0FEN 2,8,2,"#" 
11030 TR=18:5E-1 

11040 PRINT# 1,"LLLSPACEITISPACERO"STRAS 
E 

11050 FOR I=0 TO 7 

110540 PRINT# 1,"B-PISPACEIZ"I#3745 
11070 FOR 11=0 TO 15:6ET #2,1$ 

11080 IF I$=CHRE (160) THEN 11100 
11090 1I$=11stlt 

11095 NEXT II 


“99 > 
2357 
<i160> 
<235> 


x224r 
x123> 
{241} 
s19797> 
s2a53> 
“337 

£173> 
397 


x9> 
<1B673 


26> 
ar 


“2067 


<151> 


x96> 


-135> 
<22B> 
A2a7> 
“1455 
“1647 
<28> 

<1598> 
<2277 
«1277 


<195> 
x115> 
“6357 


sor 


s230> 


x175> 
<110> 
“114> 
29 


1975 
<1435> 
<100> 
“26r 
Ka22r 
ZB: 


x194> 


x78> 
“i6bl> 
“181> 
“32: 


“1965 
x198> 
207° 
“1055 
AP2F 

“2435 
<113> 


11140 


IF ZI$=NA$ THEN 11200 

II$="":NEXT I 

PRINF# 1,"B-PISPAGEFZLISPACEIO" 

GET #2,A$,B& 

IF Af="" THEN A$=CHR$ 10) 

11150 IF B$="" THEN BE=CHRF (0) 

11180 IF ASC (A$)=0 THEN. PRINT "CDOHNF--I 
LE{SPACEINICHT [SPACE}GEFUNDEN"CLOSE 2:6 
DTD 6900 

11170 TR=ASC (A$)ıSE=NSt (Es 

11180 GOTO 11040 

11200 FRINT# 1,"B-P{SPACE+H2" 183243 

11210 GET #2,A#&,Bs& 

11220 IF As="" THEN As=schHis (0) 

11230 IF E="" THEN BF=CHRF (0) 

11240 TR=ASC {A$):SE=ASC (BF) 

11256 PRINT# 1,"UL{SPAGEIZISPACEFO"STR3S 
E 
11280 
11270 
11280 
11290 


11100 
11110 
11170 
11130 


PRINT# 1,"B-PISPACEIZISPACE ION" 

GET #2,A$,B#,Ar,B#$ 

IF As="" THEN A#=CHR# (ö) 

IF Bt="" THEN BF=CHRF (0) 

11300 X=ASC (AF) +2568ASC {BE} 

11310 FRINT "{DOHR3WTARTRDRESSEtESRACEIVD 
N{SPACEF"NÄFCHRS (153 "ISTYX 

11320 ECLOSE 2:60T0 4700 

11997 REM KUREN KERN RR 
11798 REM * GELOESEHTES FILE RETTEN # 
11797 REM BRENNER HH HER RER 
12000 PRINT "4ACLEAR?" TARBEM "LRVSON SPA 
CE3GELOESCHTESTFPACEI--ILEISPACEIRETTEN{E 
PACE RWSGFF}":GOSUB Tüücc 

12005 PRINT "-AMEISPACEIDESTSPACE 
DAS{SPACEIGERETTET{SPACEIWERDEN{SPACEISO 
LL”" 

12010 INFUT NA# 

12020 FRINT "{DOHN}-ILETYPISPACEI = TSPAGE 
30=—EL{SPALCEHI=PEOISPAGCEIZ=RGISPACHY = » 
SR{SPACE?4=_EL" 

12030 FOKE 178,0 

120240 GET O4: IF Br="" THEN 12049 

17050 IF Os<"O" OR 83>"5" THEN 12040 
120850 ON {YA (QEI+1)50T0 12070,12080,12 
0979,12100,12110 
12070 X=173:G0T0 
12080 X=129:60T0 
12070 X=130:60T0 
12109 %X=131:60T0 12120 

12110 X=132:60T0 17170 

12120 OPEN 1,8,15,"I":GPEN 2,8,2,"#" 
12150 TR=-18:5E=1 

12140 FRINT# 1, "ULISPACEFPISPACEHU"S TRSS 
E 
12150 
12160 
12170 
12180 
=10 
12190 
12200 
12210 
12220 
12230 
122740 
17250 








12120 
12120 
12120 


FOR I=0 TO 7 

FRINT# 1,"B-P{SPACEYZ"IR3245- 

FOR II=0 TO 15 

GET #2,Is:1F T$=CHRF (180) THEN 12 


I1l$=IIF+I$ 

NEXT 11 

IF NAt=II# THEN 12500 

II$=""ıNEXT I 

PRINT# 1,"B-P{SPALCEFZTSPACEIO" 
BET #2,A$,B# 

IF At="" THEN AS=CHR$ 10) 

12260 IF B$="" THEN B$=ECHRS (0) 

12270 IF ASC tAF}=0 THEN PRINT "{DOHNZ>.. 
ILE{SPACEINICHTTSFAGCEIGEFUNDEN":CLOSE #: 
80T0 4909 


12280 TR=ASC tAF):SESASC (BEISGOTO 12149 
125300 FRINT# 1,"B-FISPACEZ"I#32r2 

12310 GET #2,04: IF G#="" THEN O#=CHR$ (0 
} 

12320 IF ASC t@#)>0 THEN FRINT "tBOHNS—I 


Gemsupe mir 





<144> 
ATTE 
<21l> 
x11%77> 
<B2: 
«1027 


<1lzE 
49: 
AGTE 
DT Fi 
“19F> 
1a2> 
1823 
x119> 


s150> 
EISF 
“437 
a2Sr 
er 


<213> 


x246> 
x110> 
123 
<x138> 
x14> 


“1323 


x198> 
213> 
x167> 
“AI? 
2095 


"1723 


x172> 


<26> 
“124> 


x13> 





viel 


B/DR 


LEISPACEFISTISPACEFINICHTTSPACEIGELÖESCHT 
"»ECLBSE 736010 6700 

2330 FRINT# 1,"B-FISPACEIZ"Ir32H2 

12340 FRINT# Z,CHRE (X)3 

ZF750 FRINTH 1, "UFISPACEFZISPACEIO"LTRIS 
E 

12560 FRINT# 1,"1*" 

12370 CLOSE 2:G0TD 5700 

12797 REM KREIEREN HERR FE 

129986 REM * LADEHILFE ANHAENGEN # 

12997 REM SRH HEHE 

13000 PRINT "{iCLEARY" TABI1O) "IRVSOH SP 
AGEH_ADEHILFETSPAGEFANHAENGENISPÄACE RYSO 
FFY"':GDSUR 20000 

13005 FRINT "AMEISPACEIDESISPACEY ROGRA 
MMS ,ANTSPACEIBDASTSPACE FEINE SPACE ADEHI 
LFEANGEHAENST ISPACE FWERDENTSPACEFSOLL" 
13010 OPEN 1,8,15,"I":0PEN 2,8,2,"#" 
13030 INPUT NAF 

13030 TR=18:5E=1 

135040 PRINT# 1,"ULiSPACEFZISPALEFO”"FTRIS 
E 

150509 FOR I=0 TO 7 

13050 FRINT# 1,"B-PiSPACEF ZU, I#32+r5 
135070 FÜR IIl=6 TO 15 

13090 GET #2,1#:1F I&=CHR#$ {150} THEN 13 
110 

13090 IIF=IIF+I+ 

13100 NEXT II 

131106 IF II#=NAF THEN 13200 

1312G IIs="":NEXT I 

















13130 FRINT# 1,"B-FISPACEIFISPACEIO" 


13149 GET #2,nF,B# 


13150 IF At="" THEN Af=CHRE$ (0) 
15180 IF B#="" THEN Bf=CHRF (0) 
13170 IF ASC (A$)=0 THEN FRINT "IDOHN>-I 


LE{SPACEFNICHT {SPACEIGEFUNDEN" :CLOSE 7:6 

0T0 4900 

13180 TR=ASC (AF):SE=SASC {Bf} 

13170 GOTO 13040 

13200 FRINF "IDOHN23 | ITTEISPACEIWACHLENTE 

SPACEYSIE: " 

132053 FRINT"{SPACE RYSON SPACEILTSPACE R 

VSOFF SPACEF=TSPACGE>" „8: ' TSPACEIGDERISPA 

CE RUSON SPACEIZISPACE RESOEF SPACEI=TER 

ACEF" „8,1 XSPACEFANHRENGEN”" 

15210 POKE 198,0 

13220 GET Q$: IF D#r="" THEN 137720 

132350 IF O$="1" THEN GOTG 13500 

132409 IF O$="2" THEN GOTO 135350 

13250 GDTO 13220 

153500 PRINT# 1,"B-Pi5SPACEI 2", IR 3Z+H5+12 

13310 PRINT# 2,CHRF (180) ;CHR$ (44) sCHR# 
SS} ;CHRF (5935 

13320 PRINT# 1, "UZISPACEFZIEPACEFO"STR;5 

E 

13330 FRINT# 1,"1" 

13340 ELOSE 2:60T0 8900 

13550 PRINT# 1,"B-F{iSPACEI2" 3 I#F32+5+11 

13350 FRINT# 2,CHR#F (160) ;CHR#$ (44) 5 CHR#$ 
{SöÖI;CHRF (44) 5CHRE (49)% 

13370 FRINT# 1, "UZISPACEFZISPACEIO"STR:S 

E 

13580 FRINT# 1,"[" 

13370 CLGSE 7:GOTD 4900 

13997 REM HR 

1377B REM *# DISK LEBERFRUEFEN * 


139979 REM HERRN EIHE EEE 

14000 PRINT "{CLEARI" TAB(1OY "CRFSON SP 
ACEFT-ISKISPACETUEBERPRUEFEN{SPACE RESOFF 
3:GOSUB Zoo . 

14010 BFEN 1,8,15,"1" 

14520 Z1 (1}= 12272 (i)= 17:73 il)= 20 





























Z1lA2> 
RATTE 

“215r 
x1532> 
2335 
AI1r 

“216: 


SBa> 


<1B3> 
ALFEF 


x:84> 


_Programme. 


14030 21 iDdI= lis3:ıZ2 (DI= 24:27 (DI 18 
1404060 71 De (2M:Z2 (Di= 50:75 He 17 
14050 Zi i4)= (Z31}:Z2 (4)= 25:73 IM) 1 


14055 FRINT#A 5 "M-W"CHRE (OF CHRE CO)CHRE (1) 
CHR& {172} 

14057 FORI=1TOT009:NEXTI 

14058 TI$="000000" 

14050 FOR A= 1 TG 3 

14070 FOR B= Zı(A) 10 Zi 

14080 FOR C= 0 TO Zt) 

14090 PRINT "tHOHE DOWN? RIGHTIFWEUR":B: 
"XLEFT SPACE? WEKTOR"SCH"TLEFT SRACERF" 
14095 FRINTRL,"M-W"CHRE {&) CHRE CO) CHRE (TI 
CHRE& EB) CHRS (DC) 

143100 PRINT#L,"M-W"CHRE {O) CHR& CO) CHRE (1) 
CHRE (178) j 

14103 FORI=ITO200:NEXTI . 

131415 IFB=ÖÜTHENFORI=1T0500:NEXT:G=1 
14116 FRINT#1,"M-R"'CHREFCOICHRE COFCHRF EL) 
14119 GET# 1,1$:1IF ASC(TFHCHRE (O7 )=1 THE 
N 14140 

14120 FRINT "{HOHE BOWNLIZITEFEKTERTERACE 
FILOCKTSPACEFAUFLSPACEFWFUR"SBS "LLEFT SR 
ACEFWEKTOR"SC"ZLEFT SPACEZY":D=-D+1 

1413G FRINT# 1,"B-FISPACEHE"SBS DE: FRINTE 
1, "B-AISPACE? 2"; Bs Cs FORI=S1TOTOO:NEXTI 
14140 TE="":NEXT C 

14150 NEXT E 

14150 NEXT A 

14170 PRINT "{BOHNIAUFISPACEYDIESERISPAC 
E}-ISEETTEISPACEISIND" 3 DECHRE (13) 3 "DEFEK 
TEISPACEH ILBETCKE" 

14175 FRINT" CDOHNF-ERTSPACEH| ESTER. 
AUERTEISPACEI "MIDE{TIE,3, 23 "{SPACEN-INUT 
EN 

14177 PRINT"UND{SPACEF"RIGHTFOTIE DI "IP. 
ACEIWEKUNDEN" 

14180 GOTD 21000 

179977 REM KR EERIREH+ 

17798 REM * DISKETTE EINLEGEN #* 

LFPIPTT REM RER 

ZO000 FRINT "IDOHN2 SPACEF-ISKETTEISPACE 
FEINLEGENTSPACEHUNDISPACEI I „_{EPACE:ID 
RUECKEN{BOHNZF" 

200106 FOFE SI+5,10:PDKE 5145,10 

20015 FOKE SI+1,80:POKE SI+74,15:POKE 17 
8,0 

209020 FOKE SI+4,17:FOKE SIr4,14:TI$= "oo 
canon" 

20030 GET OF 


























20040 IF G#= CHRF{L1SI THEN 20080 
20050 IF Q@#= CHR#{141) THEN RUN 
20060 IF TIs= "OGO0091" THEN 70070 


20070 GOTO20030 

20080 FOR I=0 10 24:FOKE SI+1,0:NEXT:RET 
URN 

20097 REM FH N HH Een 

29008 REM * TASTE DRUECKEN * 

200997 REM HE 

21900 FRINT "{BOHNZY SFr ic" ei 
=Bl:FOKE 179,0 

21010 FOKE 515,5; FOKE 5I+5,5:FOKE SI+1l, 
1 

21015 FOKE 5SI+2,250; POKE 51+24,15 

21020 POEE 51Ir4,K:TI# ="O00000" 

71030 GET GF 

21049 IF Q#S>""T THEN RUN 

21050 IF TI#= "O0000l" THEN 21070 

zZ10650 GDTO 21030 

21075 IF E=8i THEN K#36:56010 21070 

210850 K=81:G50T0 21020 
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. Tips & Tricks tür den Commodore 64 


HEX-DUMP ist ein Utility das dem Anwen- 
der den Ausdruck eines HEX-DUMPS er- 
laubt. Das MG-Programm liest den ange- 
wähiten Speicherbereich aus und gibt ei- 
ne Bildschirmseite (25 Zeilen) aus. Zuerst 
wird dabei die Adresse in HEX, dann 8By- 
te in HEX-Zahlen und anschließend diese 
8 Byte in Bildschirmcode ausgegeben. In 
der nächsten Zeile die um 8 erhöhte 


BASIC-ROM 


Adresse, (Hex-Byte usw.) 
Die Syntax des Programms lautet: SYS 
49142, Adresse, 0=BASIG-ROM/I=RAM unter 


(25 Zeilen/200 Byte) vor 
F3 = eine BS-Seite zurück 
F5 = Hardcopy 
F7 = zurück ins Basic 


Dadurch hat man die Möglichkeit auch 
unter Basic gespeicherte Programme aus- 
zulesen und auszudrucken. 
Funktionstastenbelegung bei HEX-DUMP: 

Ft = eine BS-Seite 


Wer noch keinen Monitor hat und auch 
keine 4K abtippen möchte, kann. dieses 
nur 447 Byte lange Programm bestimmt 
sehr gut brauchen. 


100 REN HH 397 32009 DATA240,74,74,74,74,201,10,176,25, 

110 REM = HEX-DUMP * <42> 24,105,458,32,210,255,1655,165,41,15,201 <147> 
120 REM *# vVoN JOHANN KOSL * “1127 32010 DATA10,175,15,24,105,48,32,210,255 

130 REM * 3004 RIED/RDEB. * <65> 76,215,192,24,1053,55,768,185,192,24,105 <48> 
130 REM * GESTERREICH * <73> 32011 DATASS,76,197,192,165,164,41,240,7 

150 REM EEE EEE <89> 4,74,74,74,201,10,176,23,24,105,48,32 1257 
200 FORX=471521049599: READA:FOKEX „A: 8=5+ 32012 DATA210,255,165,154,41,15,201,10,1 

ArNEXT <11r 76,15,24,105,48,32,210,255,76,6,193,24 +205> 
210 IFS< >55201THENPRINT"DATA-FEHLER{TSPAC 32013 DATA103,55,76,250,172,24,105,95,76 

E} "END <104> ‚244,192,169,58,32,210,255,169,32,32 <102> 
220 PRINT"DATAS{SPACEIOK. "SEND 449>. 32014 DATA210,255,96,135,166,41,240,74,7 

32000 DATAS2,253,174,32,138,173,32,247,1 4,74,74,201,10,176,25,24,105,48,32,210 <200> 

.83,164,20,166,21,132,176,134,177,32,253  &31> 32015 DATA255,165,166,41,15,201,10,176,1 

32001 DATA174,32,159,183,1398,240,4,169,5 5,24,105,48,32,210,255,76,64,193,24,105  <98> 
4,135,1,160,25,140,24,208,160,31,162 «1765 32015 DATASS,74,32,193,74,105,55,76,46,1 

32002 DATA4,132,178,134,179,169,147,32,2 73,169,32,532,210,255,758,160,0,177,17& <95> 
10,255,162,25,138,72,164,176,166,177 <160> 32017 DATA145,178,200,172,8,208,247,24 ,1 

32003 DATA132,164,134,165,32,168,192,150 65,178,105,40,133,179,165,179,105,0,133 <52> 
„0,177,176,52,17,193,200,192,9,208,24& <156> 32018 DATA179,96,169,127,162,4,1580,7,32, 

32004 DATA32,70,193,24,165,176,105,8, 1353 j 186,255,169,0,32,189,259,52,192,255,180 “647 
„176,165,177,105,0,133,177,104,179 ,202 <b> 32017 DATAO,162,3,132,180,134,181,162,12 

32005 DATA240,98,169,13,32,210,255,76,50, 7,32,201,255,162,25,169,13,32, 210,255 <72> 
192,165,203,201,4,240,20,201,5,240,25 <3> 32020 DATAS2,225,255,240,49,160,0,177,18 

3200& DATA201,6,240,15,201,3,240,3,76,10 0,133,192,41,63,6,182,36,182,15,2,9,128 <161> 
4,192,169,55,133,1,96,76,35,192,32,95 <S6>- 32021 DATAI12,2,9,64,37,210,255,200,192, 

32007 DATA173,76,104,192,56,165,176,233, 40,208,230,152,24,101,180,133,180,144 <4> 
200,133,176,165,177,233,0,133,177,56 <127> 32072 DATA2,230,181,202,208,205,1697,13,3 

32008 DATA165,176,253,200,133,176,165,17 2,210,255,32,204 ,255,169,127,32,199,255 2477 
7,233,0,153,177,76,35,192,165,165,41 <15> 32023 DATAI& <43%8 
Zeichenerweiterung Zeichenerweiterung Zeichenerweiterung 





Das nachfolgende kurze Programm stellt | DasUnterprogramm kann in jedes beliebi- | erfolgt der Start. Nach dem Druck RUN- | 


eine Zeichenerweiterung für den Gommo- 
dore 64 dar. Folgende Zeichen sind somit 
sofort ausführbar: AU UA C im Kreis (Lopy- 
rightsymbol) 


Diese Zeichen wurden auf verschiedene 
Tasten gelegt, so daß diese Zeichen dann 
nicht mehr'gewählt werden können: 


Ä - SHIFT : 
N = AFFEN A 
Ö 0 =SsH; 


COPYRIGHT = PFUND ZEICHEN 
h = $HIFT 7 


ge Programm eingebaut werden. Geladen 
wird es mit SHIFT RUN-STOP und mitRUN | Programm wieder verlassen. 





1 POKESS280 ,3: POKES3281 „35 PRINTCHRS& (5) :P 
RINT"ECLEARF"SA=1 

2 FORI=1T051 

Z PRINTTAB(B)I "BITTE{SPALEIWARTEN" : POKESA 





“1947 


6A: AsA+1:B=B+H1 12835> 
4 NEXTI <24> 
5 PRINTCHR$ (5) :605UB &0009: PRINTEHR$ 1147 

3 


& FRINT"{RIGCHTZIHHR {SPACE NISPACEFIFOSEE, 
PAGEIBYISPACEITHORSTENTSPACEIKLOMANNTSPA 
CEIaEK" 

7 FRINT"sH{SPACEYSB1BSTSPACEHBYTEStTSPATCE 
3FREETSPACEFBASICHSTEPÄCEILTSPACEFEISPAGC 


E3 I{SRPACE? "ISPACEINTSPAGEI " 








x<1B3> 


<6i> 


STOP RESTORE können Sie jederzeit das . 


















werkstatt 


8 END <135> 60007 DATA 21 „ 102, 102, 102, 102, 102, 
60900 REM ZEICHEN <210> 1062, 50, 0 <br} 
60001 FOKEIA3I4 APEEK (56339 ANDZ2S4sFOKEI , &O01O Data 0 „ 36, 0, 102, 102, 1072, 102 
PEEK t1YAND2S1 s128> „ 60, " <x123> 
&0002 FORI=CT01022: POKE12288+I „PEEK (5324 80011 DATA 27, 66, 24, 34, 302, 125, 10 
BOrLD)zNEXT x28> 2, 102, © x78> 
60003 FDKE1 ,„FEEK{LIDRA4: FOKEI&SFS4 ,PEEK (5A 80012 DATA 29 „ db, 0, &0, bb, db, bi, & 
334)0R1 x50> oa, 0 <B4> 


&0004 PODKESS272, PEEK 153272) ANDZ240) DOR12 x205> 60013 DATA 25 „ 50, Ab, 90, 82, 70, 56, 


&0005 READAS IFA=-1THENRETURN  x67> 50, 0 <B84> 
&0004 FORJ=OT97:REARB:FOKEIZZRB+AFB+J „Br 60014 DATA 39 „ 55, 48, BE, &8, 68, 88, 
NEXT=:GOTO &0005 <193> | 64, 84 <69> 
60008 DATA 9 „ 36, 0, 66, 66, 6b, 56, 12 80015 DATA-i <Z01 > 
6,0 <1432> . 





Bild-Saver ermöglicht Ihnen, Texte die Sie 
auf dem Bildschirm tippen auf Diskette 
abzuspeichern. Dies ist dann recht nütz- 
lich, wenn man nicht sehr viel Speicher- 
piatz für Printzeilen hat. Genauso kann 
man es auch für Spiele verwenden, indem 
man es vom Programm aus mit LOAD 
“NAME“ 8,1 lädt. Eine weitere Nutzungs- 
möglichkeit ist die Verwendung als Mini- 
textporgramm. Hier müssen Sie nur Seite 
für Seite schreiben und auf Disk spei- 
chern. Nach dem Start gibt man einen Na- 
men ein als Filenamen und kann dann so- 


fort mit dem Schreiben beginnen. Dabei | dasonst der Bildschirm nach oben scrollt. 


istauch reverse Schriftmöglich. Dasletzte | Zum Abspeichern HOME und RETURN 


Kästchen darf nicht beschrieben werden, | drücken. 


INFUT"FILENAMETSPACEI "SAH 
DFEN1 ,0:.INFUT#1,B#$: „Bs:LCLOSEA 
OPENS, 8,8 Ast" .Pp, w" 

PRINT#B, CHR& (00) I CHR$ (04) 3 
FORA=1024T02023: PRINT#B „CHRE 
(FEEK (A) 3 =NEAT 

ELOSES . 

GETOF: IFO$=""GOTDO1SO 

GOTD1OO 





VC-20/064_ %_ _Daten-Mithör-Möglichkeit % __vc-20/0-54 


Manchmal istes recht problematisch, den 
Anfang eines Programmes zu finden. Um 
dieses Problem aus der Welt zu schaffen, 
gibt es ein einfaches aber wirksames Mit- 
tel. 


Die folgende Erweiterung ermöglicht das 
Mithören der Daten von Kassette für den 
VC-20 und 6-64. 


Die Schaltung besteht aus nur 4 Bauteilen. 
So kann auch der Anfänger die Schaltung 
auf einer kleinen Lochrasterplatine oder 
als eine einfache Drahtschaltung auf- 
bauen. 


Die niederfrequenten Signale, die beim 
Laden von Kassette am Anschluß D-4 des 


BAR 


Kassettenport’s auftreten, werden durch | Es werden benötigt: 

die beiden Transistoren verstärkt und 1 Transistor BC 237 o.ä. 

durch den Lautsprecher wiedergegeben. 1 Transistor BG 140 0.3. 

Das Potentiometer dient dazu, die Laut- 1 Potentiometer 5K 

stärke zu regeln, da sich die lauten, schril- 3 Lautsprecher (möglichst klein) 
len Töne auf Dauer als störend erweisen. 


Als Lautsprecher nimmt man am besten 
einen Kleinstlautsprecher aus einem 
Walkman Kopfhörer {als noch geeigneter 
erweisen sich die kleinen bügellosen R - 
Kopfhörer). Der Lautsprecher kann wahl- statt“ suchen wir weitere 
weise in die Datasette oder direkt in den || Peiträge. - Wir zahlen ein 
Computer eingebaut werden. Honorar von 120,- DM pro 


Es ist keine zusätzliche Stromversorgung komplett abgedruckte 


nötig, da die Schaltung ihren Strom direkt . Seitel 
vom Computer bezieht. 


Die Pinbelegung finden $ie auf Seite 16 


Für unsere Rubrik „Werk- 








PDammıba amd 
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programme 


Kassetie: | 





Mit Hilfe dieser PIN-Belegung und dem genauen Steckplan dürften Ihnen bei 
dem Bau dieser Mit-Hör-Möglichkeit keine Schwierigkeiten entstehen. 































Zu Beginn erfolgt die Erstellung einer Matrix von Ax4Steinen, 2... 
in die das ABC von A- Oeingefügtwird. Anschließend wirbelt 
der Computer die Buchstaben durcheinander und oben rechts 
wird auf dem Screen Bild 1 angezeigt. Es stehen 15 verschie- 
dene Bilder, die mit der Taste F3 ausgewählt werden, zur Ver- 
fügung. 


Nun fragt der Computer welcher Buchstabe sich verschieben 
soll. Eine Verschiebung kann nur dann stattfinden, wenn das 
Feld links, rechts, oben oder unten unmittelbar neben dem ge- 
wählten Buchstaben frei ist. Die Verschiebung erfolgt durch 
den Computer, danach kommt es zur nächsten Abfrage. 


Ihre Spielaufgabe besteht darin, das ABC mit möglichst weni- 
gen Zügen in die richtige Reihenfolge zu bringen. Wenn es Ih- 
nen gelungen ist, eine bestimmte Reihenfolge zu erzielen, so 
wird links oben im Bild angezeigt, wieviel Buchstaben noch 
folgen müssen. 


Hat man nach einigen Zügen festgestellt, daß das Spiel un- 
günstig begonnen wurde, so gelangt man mit der Fi-Taste 





wieder in die Ausgangsposition zurück. = 6=36874: FRINTCHR$ (147) l £3> 
. . , , 16 FOKES+5,B: PRINT"IHHITEF" De Sr 
Liegt das ABC in der angestrebten Reihenfolge, erfolgtdieAn- 20 xs="tezenrzer" <137> 
gabe der durchgeführten Züge. Auf Tastendruck erscheint = a 0999999999999999999999997 “is23 
dann die High-Score-Tabelle, welche tatsächlich die „LOW- IIGGIGITGTAHIG" EISr 
Score-Tahelle“ ist. Diese Anzeige umfaßt bis zu 15 Bilder und 40 Dımkt16) :Po=7634: AR=PO+30720 =227} 
so 7$="ABEDEFGHTIELMNDISPACE "eAF=ZE 24: 


gibt die niedrigste Zugzahl für das entsprechende Bildan. 20 3$=" CDOHN LEFTS> IRVSON YELLOWIT 
\ . —ERVSOFF WHITE} |XDOMN LEFTS> |{RVSON YEL 
Auf Tastendruck können Sie das Spiel von neuem beginnen. zawr SPACE3 IKRVSOEF BHITES I{DZUN LEFTS> 




















riop 


IERVSON YELTORH. KREFSGEF HBITEIVCDOHH LE 
EETSF 

70 X=2: Y=2: D=0: PU=0: BOSURZ000 

Bü FORT=1T04: FORI=1T04 

BZ D=D+1 

85 FRINTSS"TLEFTZ3 UP2 RVYSON YELLOHF"MIDE 
{AS ,D,13 "SRVSOFF WHITEF" SE X=X+5: BO5SUB200 
O:NEXTI:X=2 

70 Yeyı+S:560SUB20O00:NEXT 

100 X=B: Y=23: SOISUE7OOO 

1109 FRINT"<HHITEIFERTIGISPACEHT",: FOREI1? 
3,0: WAIT17G,1 

115 GOSUBZ000: PRINT" ISPACEPY": 

120 ZF=RIGHTFIZE,1II+LEFTF(Z$, SF): BI=BI#i 
s IFBI>1STHENBI=1 

125 X=14: Y=1: EOSUB200G: FRINT"BILD: "RIGHT 
FX5STR#F BT? „235 

130 X=4: Y=4: 505UB2000: D=0 

140 FORT=1T04:FORI=1T04:D=D+1 

150 FRINT"LRFSON YELLOHY'MIDFLZF,D, LI "ÄR 
VSOFF HHITEF"SSKCDI=PO+I #5 TRI8Z22 

155 X=X+5:60SUB2000=NEXTI 

160 Y=Y+5: X=4: GD5UB2000: NEXT 

170 X=2: Y=23: GDSUBZ000: Z=0: FOKE178,0 

172 FRINT"BUCHSTRBEISPACEITE"N 

186 GETD$: IFD$< >" " THEN200 

182 Z=7+1: IFZZZOTHENPRINT"TRWFSDON SPACE R 
VSUFF LEFT>"S 

184 IFZ>Z2OTHENPRINT"TSPACE LEFTY"sSs1IFZ2>4 
OTHENZ=O 

190 GOTO180 

200 IFDE="{iFJ3"THENLSO 

202 1FD$="{F33"THENL2O 

205 FORPF=1T01& 

216 IFMID$S(Z$,P,1)=D+HTHENPRINTD#; :GOT023 
o 
220 
‚230 
240 
243 
250 
255 
z&0 
265 
270 
275 
299 
285 
290 








NEXT-SE0TO180 

E=KitP) zA=PEEKIKIP)} 

GOSUB300 

IFOk=1 THEN285 

GBUSUBAOO 

IFOK=1THEN285 

EOSUBSCO 

IFOK=1THEN285 

GOSUBA0O 

IFOK=1 THEN285 

G0T0170 
Gk=0: 80518700: IFOK=1THEN3CHN 
PU=PU+1:60T0170 

300 REM TEST NACH OBEN 

310 IFPEEK (C-110)=160THENGOSUBLOOO:K{P)= 


E-110: 60SUB12700: 0K=1 
320 RETURN 
400 REM TEST NACH UNTEN 
410 IFFEEEK(C+110) =1S6 THENSBSURLOOO:K (P})= 
C+110: G05LJR1200: OK=1 
420 RETURN j 
So0 REM TEST AUF LINKS 
519 IFPEEKtEC-53=1&0THENSOSUB1OO0O:K CPI =SC- 
5: GUOSUB1 200: DOE=1 " 
20 RETURN 
500 REM TEST AUF RECHTS 
610 IFFEEKR (C+FI)=180THENGOSUR1000:K (P}=Cc+ 
5: 50SULB1 200: OK=1 
&20 RETURN 
700 B=128: FORT=1T04: FORI=1T04 
710 BeB+1: IFB@>PEEK {FPO+1#5+ T#5%#22) THEN?S 
Wi 
715 IFB=145THENI=4 
720 NEXTI,„T:0K=1 
30 X=2: Y=1:505UR2005: FRINT*"STEINE: "RIGH 
TFISTRE 144-8) „ZI: RETURN 
10909 FOKEK {P} , 140: FÜHER (F} + FF ,7 
1100 RETURN 


“745 
SE7r 
«81> 
x79> 


x<146> 
x140> 
2143 


B0> 
is4r 


2593 


23575 
Br 
22405 


<181> 
«1993 
<14> 

218> 
EIIEF 
a2P> 


<200> 


“68> 
“175 
“«19#8> 
1945 
x156> 


K203> 
x105> 
163% 
<51> 

<161> 
b3> 

<171> 
<F76> 

<1872> 
<B8> 

£<192> 
£<105> 
<216> 
<151> 
<124> 


<4P> 
2075 
395 


#117> 
Sal 
<143> 


s181> 


“1927 
232 


“252> 
Se32r 
14> 


©1475 
“127 
„125 
577 


LEROS 
A222 


_programme 


1200 POKEK (P}) „A: POKEK (P)+PF,7 


‘1300 RETURN 


2000 PRINT" CHOHEI"LEFTF(X$,X-1)LEFTFtVS, 
Y-133 

2100 RETURN 

3000 A&t{13="HERZLICHEN{ISPACEIGLUECK- {SPA 
CE4 BOHN SPACESFWUNSCH! " 

3010 A$(Z)="SIETSPACEIHABENTSPACEIESISPA 
CEIGEPACKT.” 

3030 AF(F)="SIETSPACEIBENDETIGTEN{SPACEI 
„H 

3040 PRINTCHRE (147) 5 X=2: Y=4: GOSLIB2O00: RE 
STORE 

3050 FORT=-1T03: FORK=ITDLEN{AFLTI) SFOKES+ 
3,212 
3060 
3070 
© 
3080 
3090 
[5] 
3092 


FRINTSIDELCAFTTI ,E, 2) 1 POKES+S,O 
READN „MW: IFN=-1 THENRESTORE: BOT0307 


POKES+4 „N: FORES+2,M: FORI=I TOW: NEXT 
NEXTR= Y=Y+4: GOSUBZ900: NEXT: FOKESt2, 


X=5: Y=14: GDSUB20906: PRINTPU; 

3076 X=2: Y=16: GDSUEZ2000: PRINT" ZUEBE! "5 
3100 X=8: Y=22: G0SUB2009: FRINT" >TASTES": 
DEEiFB,0:WAITIFB, 1:2 XA=(CBI-13#T+1 

3511G PRINTCHRE$ (147) :%=4: Y=2: GOSUB2000; HS 
1 . 

»119 
=117 
3120 
3130 
3139 
Z140 
3150 
3160 
=170 
3180 
31970 
3195 
3209 
3210 
F220 


PRINT"HIGHSCORE-LISTE! "5 
X=2: Y=5: 608187000 

FORT=1T08 

PRINTT3 = X=6: SOSUB2009 
IFBI=TTHENGOSUBSOOO 
PRINTMID£ {HC$ ,H,3) 3 

X=2: Y=Y+2: GOSUBZO00 

H=H+3= NEXTT 

X=11:Y=5: BOSUBZO00 

FORT=9T015 
PRINTT; ı X=16r BOSUBZ000 
IFBI=TTHENGOSURSO00 

FRINTMID$ (HC$,H,3} 35: 

X=11: Y=Y+2: BOSUB2O00 

H=H+3: NEXT 

3230 X=3: Y=22: BDSUB2000 

3240 PRINT"BILD: "RIGHT$ (STR$ (BT) ,DI"{RIG 
HT23 ZUEGE: "RIGHT$ (STÄ$XPU) „DD 
3250 POKE1IB,0:WAITLIB,1:PRINTCHREK147}: 
G0T070 

4000 DATA15,217,120,8,226,20,4,217,75 
4010 DATA15,2354,120,08,212,20,4,234,75 
4020 DATA1S,198,120,8,227,20,4, 198,75 
4030 DATALS, 198,200 
4040 DATA-1,—1,-1 

SOG0 SCH=MIDS (HCF,XA,5) 

5010 IFVAL (SC$) >PUTHENSOSC 


5070 RETURN 

5030 SCHSRISHTE (STRE (PLN „LENISTRE CPI I-I1 
? 

5040 IFLEN (SECSI7STHENSCH="0"+5C$: GOTOSDA 
{e) 


5050 SC$=RISHT# {5SCH,3) 

S040 HEF=LEFTF HOCH, XA-1I+5SCHHRIEHTF EACH, 
49-0KAHZ) 

5070 RETURN 


re Br 
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<245> 
167° 


«1745 
S202> 


x120> 
12775 
40: 
s19> 


<i> 
SFR 


<1972> 
Saar 


19733 
22230> 
“SBr 


{1875 


1755 
“1425 
<T2r 

1957 
2477 
x174> 
“1935 


<137> 


29r 
65} 
“104 > 
573> 
Bern: 2 
ı2390> 
2137> 
»191> 
“19725 


<166> 
<161> 
LRAIH 


rn 


r 
Kr 
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Cebit '86 eine Messe der Superlative 


‚Fortsetzung von Seite 1 





in insgesamt 13 Hallen wurde eine Waren- 
schau geboten, die Ihresgleichen sucht. 
Alle namhaften Anbieter nutzten natürlich 


‚die Gelegenheit dieses einmaligen Spek- 
takels und zeigten Ihre Produkte einem in- 


teressierten und fachkundigen Publikum. 
Durch ein gut strukturiertes und besu- 
cherfreundlich aufgebautes Konzept war 
das Produkt- und Systemangebot noch 
transparenter. So konnte jeder ganz ge- 
zielt nach seinen Interessen in den einzel- 
nen Hallen eine komplette Produktüber- 
sicht bekommen. 


Keine wesentlichen - 
Neuerscheinungen im 


Homecomputer-Bereich 





. Die Mikrocomputertechnik wurde in den 


Hallen 1/713/16/17 vorgestellt. Hier hatten 
wir Gelegenheit, bei den derzeitigen 
Marktführern in der Homecomputerszene 
- Commodore, Schneider, Atari, und eini- 
ge MSX-Anbieter - nach Neuheiten Aus- 
schau zu halten. 

Bei Commodore konzentrierte sich das 
ganze Geschehen auf die Vorstellung des 
AMIGA-Computers. Diesem neuen Sy- 
stem aus Amerika ist die wohl größte Auf- 
merksamkeit am Gommodore-Stand ge- 
schenkt worden. Natürlich hat man auch 
den PG-Bereich stark ausgebaut, um noch 
mehr Kunden in diesem Bereich zu errei- 
chen. Bei Schneider konzentrierte sich 


-das Geschehen hauptsächlich auf den 


JOYCE. Dieses System soll mit neuem 


-niedrigerem Preis noch mehr Anwender 


ansprechen. Der Heimcomputerbereich 
wurde an beiden Messeständen kaum 
oder garnicht behandelt, sodaß man na- 
türlich auch nichts berichten kann. 

Lediglich in der Zulieferindustrie hat sich 
einiges neues auf dem Markt getan. So 
wird jetzt von einer amerikanischen Firma 




















oo 
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IN 


die BEE GARD angeboten. Hierbei handelt 
es sich um ein EPROM, das in den Compu- 
ter eingesteckt wird und mit dessen Hilfe 
ein Programm von einer Scheckkarte ein- 
geiesen wird. Nähere Informationen zu 
diesem Thema werden wir in einer unse- 
rer nächsten Ausgaben veröffentlichen. 


Erwartungen der techni- 
schen Leistung im Mikro- 


‚computerbereich wurden: 
erfüllt. 5 





Wer diese Messe in der Erwartung be- 
sucht hat, hieretwas Neues für den Home- 
computer zu finden war sicherlich nicht 
richtig informiert und fehl am Platz. Diese 
Messe versteht sich als reine kommerziel- 
le Medienschau, die im Bürobereich Ihre 
Abnehmer findet. So ist es auch nicht ver- 
wunderlich, daß diese Messe für die 
Heimcomputer-Anwender keine wesentli- 


1! Sl)" 








Das hervorragende Wetter lockte zahlreiche Best- 
cher an, 


chen Neuerungen brachte. Eines sollte 
man jedoch festhalten. Wer sich für den 
aktuellen Stand der Technik interessiert 
und wer einmal sehen möchte, zu. wel- 
chen technischen Leistungen Mikrocom- 
puter heute schon in der Lage sind, der 
war hier richtig und konnte eine ganze 
Menge interessanter Aspekte kennenler- 
nen. Für den Büro-, Informations- und 
Kommunikationsbereich war diese Fa- 
chausstellung bestimmt eine Messe der 
Superlative. j 


Hannover war die Reise 


Bun, /:7 ee 





Hannover dürfte auch im nächsten Jahr 
eine Reise wert sein, darf man doch an- 
nehmen, daß dann noch mehr Aussteller 
Ihre Produkte zeigen werden. Die Compu- 
terindustrie ist in Deutschland die einzige 
Branche, in der noch zweistellige Wachs- 
tumsraten erzielt werden. Solange diese 
Tatsache eine wichtige Rolle spielt und die 
Konkurrenz ständig erweitert wird, solan- 
ge wird auch die CeBIT die größte und in- 
teressanteste Fachmesse für diesen Be- 
reich sein. Freuen wir uns also schon heu- 
te auıf die nächste Messe und staunen wir 
dann, welche Entwicklung die Mikroelek- 
tronik innerhalb eines Jahres vollzogen 
hat. 


RD 






Das Microcomputer-Labor Saar- 
brücken hat kürzlich ein neues 
Zusatzgerät für den Commodore 
64 vorgestellt. Es handelt sich 
hierbei um den G-64 Oszillo- 
graph, der es ihnen erlaubt, auf 
dem Commodore 64, dem SX 64 
oder dem 6 128 eine Vielzahl von 
Messungen durchzuführen, ohne 
den Anschluß aufwendiger Zu- 
satzgeräte. 





Viele Meßaufgaben werden wahrge- 
nommen 


Mit Hilfe dieses neuen Zusatzgerätes kön- 
nen Sie eine Vielzahl von unterschiedii- 

‚chen Messungen mit Ihrem Commodore 
64 durchführen. Einige realisierbare Bei- 
spiele sind: 

- Digitatoszilloskop 
— Speicheroszilloskop 
- Bszillegraph 

-— Frequenzanalysator 
- Terz-, Oktavanalysator 
- Nachhallmeßgerät 
- uvm. 

Es istsogar möglich, diese Meßdaten völ- 
lig problemlos und auf relativ einfache Art 
{Modem, Akustikkoppler) in andere Rech- 
nersysterne in der ganzen Welt zu übertra- 
gen. 

Der Phantasie bei dem Einsatz dieses Ge- 
rätes sind keine Grenzen gesetzt. 


Preiswerte Alternative 


Durch einen Gesamtpreis von insgesamt 
298,-- DM stellt dieses Gerät eine preis- 
werte Möglichkeit dar, Messungen durch- 
zuführen, die bisher nur mit einem erheb- 
lichem Maß an technischem Aufwand und 
somit natürlich auch einem finanziellen 
Aufwand, möglich waren. Sie benötigen 
keine teuren Zusatzgeräte zur Auswer- 
tung der Daten oder zum sichtbar machen 
der Meßkurven. Dies alles übernimmt der 
Commodore 64, dank der mitgelieferten 
Software. 





u u T2 


Komfortable Software 





Diese mitgelieferte Software ist äußerst 
komfortabel gestaltet und reagiert bei 
Fehlbedienungen mit Wiederholung der 
Eingabe. Außerdem erlaubt eine einge- 
baute Druckerroutine den Ausdruck der 
eingelesenen Meßwerte, sodaß eine di- 
rekte Analyse der Daten erfolgen kann. 
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Der 0-69 als Oszilograpı 


Der interne Speicher des Gomputers er- 
taubt ein internes Abspeichern der Daten 
auf 10 Bildschirmseiten. 

Es bietet sich aber auch die Gelegenheit, 
die Meßdaten auf Diskette abzuspeichern 
und zu einem späteren Zeitpunkt wieder 
zu laden und zu bearbeiten. Selbstver- 
ständlich istes aber auch möglich, die ge- 
speicherten Daten mit beliebiger Software 
für Ihr Systern weiter zu verarbeiten. 





Dieses kleine Zusatzgerät ermöglicht optimale Messungen 


Technische Daten: 6 64 Oszillograp 


Bildschirmdarstellung 
8x16 Linien, 10 Seiten Bildschirm- 
speicher 


Yıerstärker 
0,1 0,2 0,5 1,0 2,0 5,0 10 20 50 Volt/ 
Linie, calibriert 


Timehase 
12,5 uS/Linie bis 1000 sec/Linie, cali- 
hriert ' 


Trigger 
intern (autom.}, manuell über Taste 
und extern 


h  Meßgeschwindigkeit 


maximal 40.000 Messungen/sec. 
(Vierzigtausend/Sec.) 


Druckerroutinen 


Epson FX 80, MPS 801, MPS 803, CP 


80X, Star SG 10 und alle Epson kompa- 
tible Drucker 


Software 
auf Diskette, mit ausführlicher deut- 
scher Anleitung 


Der Vertrieb des Zusatzgerätes incl. Soft- 
ware erfolgt durch: 

Mierocomputer-Lavor 

Schumannstraße 23 

6600 Saarbrücken 
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v620 Erweiterungen 


‘4 Ich bin seit drei Monaten stolzer Besitzer 
| eines VC-20 und wüßte gerne, ob esmög- 
lich ist, ein 3K erweitertes Spiel auch für 
| den 8K- oder 16K RAM-Besitzer zugäng- 


lich zu machen? Klaus Olbricht, Kassel 


Redaktion: Es ist generell nicht möglich ein 


| 3K-Programm auch auf den beiden ande- 


ren erwähnten Speichererweiterungen 
einzusetzen. Sie müßten aber nochmals 
genau die beiliegende Beschreibung Ihrer 
Speichererweiterung studieren. Manche 
Erweiterungen bieten diese Möglichkeit 
der Programmnutzung an. Dies ist aber 
bei der Vielzahl der angebotenen Spei- 
chererweiterungen unterschiediich und 
kann daher nicht pauschal mit ‘Ja’ oder 
‘Nein’ beantwortet werden. 


Maschinensprachunterlagen 


I für den G-116 


Ich suche bisher erfolglos nach einer Spei- 
chererweiterung für den G-16/116 und 
ebenso ohne Erfolg nach Unterlagen usw., 
um mit diesem System in Maschinenspra- 


| che arbeiten zu können. 


Norbert Ohde, Wilster 


Redaktion: Eine Speichererweiterung für 
dieses System wird von der Fa. Kingsoft, 
Schnackebusch 4, 5106 Roetgen angebo- 
ten. Wir weisen aber daraufhin, daß in den 
nächsten Ausgaben von „Compute mit“ 
eine Speichererweiterung veröffentlicht 
wird, die man ohne großen technischen 
Aufwand selbst bauen kann. Vielleicht ha- 
ben Sie Interesse an dieser „Gomputer- 
Bastelstunde“ teilzunehmen und warten 
mit dem Kauf der Erweiterung. j 

Unterlagen über Maschinensprache fin- 
den Sie in Form von Büchern. Die Gommo- 
dore-Sachbuchreihe Bd. 6 ist ein Fach- 
buch mit dem Titel „PLUS/4 ROM-Listing“ 
in dem Sie mit Sicherheit einiges über die 
Maschinensprache nachlesen können. 








Frage zu Autostart aus Heft 12/85 
Ich kann leider kein Programm mit Auto- 
start absaven. Immer wenn ich mit dem 
Befehl: „...Name, Geräteadresse mit Au- 


tostart“ versuche ein Basicprogramm ab- | 


zuspeichern, antwortet mir der Computer 
mit einem verächtlichen „Syntax Error“. 
Was mache ich falsch? 

Marc Pfadenhauer, München 


Redaktion: Der Computer zeigt Ihnen einen 
„Syntax Error“ an, weil Sie den Befehl 
falsch eingeben. Die dürfen den Befehl 
nicht mit einem Doppeipunkt beginnen, 
sondern einfach nur mit dem Dezimal- 
punkt. Die richtige Syntax lautet: . „Na- 
me“, Geräteadresse. Bei richtiger Eingabe 
müßte nun das Programm funktionieren. 


Ausdruck von Grafiken 
Ich besitze einen C-64 und den Drucker 


-GP-500 VC. Leider habe ich Schwierigkei- 


ten mit dem Ausdruck von Grafiken, z.B. 
Hires und bei dem Programm Girls Face. 
Im Handbuch kann ich keine Hilfe finden. 
Wie bekomme ich diese Arten von Grafi- 
ken aufs Papier? Es wäre nett, wenn Sie 
mir helfen könnten. fainer Harhoff, Moers 


Redaktion: Zum Ausdruck von Grafiken be- 
nötigt man eine Hardcopy-Routine, Diese 
wandelt die einzelnen Pixel in Bytes um 
und übergibt diese an den Drucker. Leider 
arbeiten viele Drucker mit unterschiedli- 
chen Steuercodes, so daß oft für jeden 
Drucker eine spezielle Routine benötigt 
wird. Wir können Ihnen hier leider keine 
Lösung anbieten, aber vielleicht sendet 
uns einer unserer Leser eine Programmlö- 
sung zu diesem Problem zu. Wir werden 
dann in einer unserer nächsten Ausgaben 
nochmals näher auf das Problem der 
hochauflösenden Grafik eingehen. 


Unterschiedliche Preisangaben 


In Compute mit Heft 4/86 wird auf $. 37 
ein Preis von 5,80 DM angekündigt, der 
auch im Impressum vom Sonderheft ab- 





gedruckt ist. Am Kiosk müssen aber 6,50 
DM für die Sonderausgabe gezahlt wer- 
den. Über dieses Preisgebahren muß man 
sich doch sehr wundern. 

Harald Deppe, Bad Salzuflen 


Redaktion: Aufgrund technischer Änderun- 
gen des Druckverfahrens wurde der Preis 
für das Sonderheft nachträglich angeho- 
ben, ohne daß auf die Werbung in „Gom- 
pute mit 4/86“ noch Einfiuß genommen 
werden konnte. Der Preis von 6,50 DM ist 
der richtige Verkaufspreis. Außerdem er- 
scheint das Heft nicht monatlich, wie irr- 
tümlich im Impressum der Sonderausga- 
be angegeben wurde. 


Gewinner aus dem 6-16/116 Sonderheft 


Wir freuen uns über die rege Teilnahme an 
unserem Preisrätsel aus dem „Compute 
mit-Sonderheft“ und sind glücklich hier 
die Gewinner bekanntgeben zu können. 
Viele Einsendungen enthielten übrigens 
die richtige Lösung, denn ein kleines Ku- 
riosum war bei dem Rätsel schon vorhan- 
den. Der angegebene SYS-Befehl bewirk- 
te in der Form nur die Ausgabe des Buch- 
stabens „U“ auf dem Bildschirm. Tatsäch- 
lich sollten jedoch die Namen der Schaf- 
ter des Betriebssystems ausgegeben wer- 
den. Dazu hätte jedoch der Befehl $YS 
52651 eingegeben werden müssen. Die 
Leser haben diesen Fehler gleich entdeckt 
und uns die richtige Lösung zugeschickt. 


Zwei Kassetten mit allen Pro- 
grammen der Sonderausga- 
be haben gewonnen. 


Rolf Schriemer, Geretsried 1; Peer Roggendorf, 
Emmendingen; Stefan Bößl, Neubiberg; Uwe 
Elert, Braunschweig; Patrick Bosch, Radolfzell; 
Wolfgang Stender, Kannever; Stefan Fritze, 
Kaarst 2; Sascha Harms, Süderbrarup; Andre 
Telgmann, Ahaus; Steffen Gebhardt, Bad Mer- 
gentheim. 


Herzlichen Glückwunsch allen Gewin- 
nern und vielen Bank für Ihre Beieili- 
gung an unserem Rätsel, 


HT: 





_Programme 


‚Ein Geschicklichkeitsspiel für 





‚den VC-20 in der Grundversion 


Zuerst erstellt der Computer das Labyrinth. Dieser Vorgang ist 
nicht sichtbar und nimmt nur Kurze Zeit in Anspruch. Nach der 
Feriigstellung des Labyrinths wird dieses in 3-D-Form auf den 
Bildschirm gebracht. Nun hat man 10 Sekunden Zeit um sich den 
Verlauf des Labyrinths einzuprägen. 


Die Ausgangsposition des Spielers wird durch AND festgelegt 
und durch “** gekennzeichnet. Die Steuerung durch das Laby- 
rinth erfolgt über die Tastatur: 





V = varwärls 

D = drehen (180 ° 

R = rechts In diesem Labyrinth soll sich ein Mensch zurechtfinden. 
L = links 


Die Spielaufgabe besteht darin, mit möglichst wenigen Zügen 

den Ausgang aus dem Labyrinth zu errei- | Ablauf von 5 Spielrunden wird der High- | beachten: 

chen. Dabei ist zu beachten, daß immer | Score wieder auf Null gestellt. Sollte man 

nur ein Weg zum Ziel führt. Haben Sie die | während des Spiels die Orientierung ver- | 1. Die Ausgangsposition wird neu festge- 
Spielaufgabe erfüllt, so erscheint eine | lieren, kann durch Betätigen der Taste “P“ legt 

High-Score-Anzeige, die 5 Personen oder ; der Verlauf des Labyrinihs noch einmal 

fünf Runden aufnehmen kann. Nach dem | angezeigt werden. Folgendes ist dabei zu | 2. Sie erhalten Strafpunkte (Züge) 


1 FOKE356879,254 “1285 s10 PFYSPY+RY3PX=PX+RX 1025 





























2 Es="{HONEF" S:FORT=OTI21: ES=ESH" SDOHN}": 320 GOTOSO x196> 

NEXT <214> 400 RX=-RX:RY=-RY <P40> 

?7 FRINT" {CLEAR KHITE3"CHRE(LB) 255% 410 GOTOSO x30> 

10 L=10: DIMTZiL,L)I:F=0 < 70% 500 GOSURB7OO 645 

30 GOSUB7600: F=F+1 <90> 510 IFTACPY+WY,PX+WX)<>OTHENZ1O <@l> 

40 0-1 <112> 520 RY=WY:RX=UX re 

41 IFTACPX+MX CO) „PY+MY co) }< >OTHENG=B+1:G 530 GOTO310 xBa> 

OTO41 “«11> 600 GOSURBBOO x167> 

42 RX=MY {RB} SRY=MX (BD) <229 > 610 IFTZEPV+WY PX+WX) <SOTHENZIO <192> 

43 PF=PX:PX=PY:PY=PP <14> | 620 RY=WY:RX=WX:GOTOSIO <173> 

50 LW=0: PRINTCHRF 147) z117> 700 WX=-RYzıWY=RX= RETURN <Za6: 

706 AY=PY=:AX=PX 289% BCO WX=RY:WY=-RX= RETURN 22% 

89 IFAY>LORAY< LORAX>LORAX<S LTHENSOOO <33#+ 3977 GOT0999 “il6> 

85 IFTZtAY,AXI<>OTHENGOSUB 1400: GOTD2IO <7> 1900 PRINT" {HOHEF" 5 = IFLW=OTHENIOSO xBB> 

36 GOSUBROO: T=TLCAYHWY  AX+WX <19> 1020 :FORI=1TOLWe2:PRINT"{DOHN RIGHTY"32 

70 IFT< #0THENGOSUB1000:50T0110 <129> NEXT . 265> 

100 GOSUB110N <150> 1050 PRINT"{RVSON BLACKIWDOHN LEFT SPAC 

110 GOSUB700+ TSTA tAY+WY „AX+UX) SAl> EIWERFSOEFF"G "66° 

170 IFT< >OTHENSOSUB1700:6GTO140 reich 1050 FORI=1T01B-(LW®4) 2 FPRINT"{LEFT2 DOHN 

150 GOSLUB1300 «186> RYSOH SPACE3 KREYSBEFF"SSNEXT <44> 
I. 140 LW=el4+l <210> 109% PRINT"{LEFTZ DOHN RVSON SPADE RVSOF 

150 IFLW=5STHENGOSUR1400: S9TO200 <217> E3FÄDOHN LEFTZIFTHOHEI" 3 SRETURN 1205 

150 AY=AY+RY:AX=AX+RX <43> 1100 PRINT" {HONEF" 3: IFLW=OTHENI 160 <218> 

170 BEOTOBO <S1> 1120 FORI=1T0_W#2: PRINT" CDOUN RIGHT3"z:N 

260 PRINTE$"DEINISPACEIBEFEHLISPACEI—— HL EXT <94> 

SPACE RVSON SPACE RVSOFF LEFT}"; <185> 1160 PRINT"{GREEN DOHN} "3: FORI=1T018-( 

210 GETD$: IFDE=""THEN210 <B2% Lie) PRINT"{LEFTZ DOHN RYSEN» HRISOFFI 

270 PU=PU+1:2C(F)=PU 2545 "2:NEXT . <231> 

230 IFDs="YHTHENSOO <198* 1190 PRINT"£{LEFT2 DOWNY"{HOHEI"SSRETURN <172> 

2406 IFDF="D"THENAOO x99> 1200 PRINT"{HOHE RIGHTZL BLACKY" 3: IFLW=O 

250 IFD$="R"THENSOO 220725 THEN1250 x127> 

2&0 IFD$="L"THENSON <184> 1220 FORI=ITOLWeZ: PRINT" CDONN LEFTI"SSNE 

2653 IFD#="P"THENGOSUBSO00: PU=PLH+-INT (100/ xT ” <194> 

FU} 2S0TO40 <207> 1250 PRINT" {RFSONYFEDOHN LEFTZIFLSPACE R 

270 E0T0210 279% ' KSOFE}" se FORI=S1TO18- (WA SPRINT" CLEFTZ 

360 IFTELPY+RY,PX+RX) LSOTHENZIG Sarı BOHN RVSOHN {SPACE BVSGEEF"SSNEXTS PRINT" 





B/op PDamnıiıba meh 


tips + tricks 


XLEFT2 DOWNYWERFSON SPACE RVSOFE DOHN LE 
ET} WEHONEN": 

1290 RETURN 

.1300 PRINT"{HOHE RIGHTZI GREEN}";:IFLW=0 
THENi 360 

1320 FORI=1TOLW*2:PRINT"{LERT. DOHN?"S:NE 
xr 

1350 PRINT"£LEET DOKN? _ "3: FORI=1TO1B- tL 
WEA)SPRINT"(CLEFTZ DOHN RESON 
sıNEXTSPRINT" {LEFTZ DOWN} THOHEF"; 

1370 RETURN 

1400 PRINT" {HOMER "3: IFLW=ÖTHENPRINTCHRES ( 
147) :60191550 

1420 FORI=1TGLWEPRINT"{RIGHTZ DOHN2I"z=N 
EXT= PRINT" ZUR2", =FORI=1T022- (i.W#4) : PRINT 
“CHHITE} "3 :NEXKTSPRINT" ILEFT3" 

1500 FORI=11073- (LWr4) : PRINT" TDOHNF"S:NE 
KT: FORI=1T022- (LW#A) = PRINT" TTLEFT2} "NE 
xT 

1531 IFLW<>STHENI1540 

















ITEIPIIDEHN LEFTZITFT" 

1540 PRINT" HOHEI"S 

1550 RETURN 

2000 PRINT"{CLEAR DOHN4 KHHITE SFACEFLABY 
„-ISPACEIWIRDISPACEHERSTELLT" 

2020 FORK=1TOL:FORM=1TOL: TA IH ,MI=4: NEXTM 

















K 
F 

2070 FORK=1TOL:T% (1,K)=T%t1,K)-1: TZAtL,K) 
STHtL,Kd-1: T2(K,1=TXik,1)-1 

2080 TAtK,LI=T%CK,LI-12NEXT 

2125 MX(1)=1:MX (2I=-1:MY(FI=e1sMY (Heel 
X=2: AY=1 

2140 TAAX,AN)=O 
- 2145 VS5=0 

2150 IFVS=Z0THENGOTD2F00 

2151 XX=INT{RND(1)#4)+1: IF?" XXANDVSTHENZ 
151 

2158: VI=VS+2"XKı RR=AKHMX CR ERYSAV+MYCHK 
}: IFRK<ZORRX>L-10ORRYSZORRY >L-LTHEN?ISO 
2100 IFTZ(RX,RYI<LTHENZ1SO 

2190 FORK=1TO4:FX=RX+MX CK: FY=RVHNV ORIG I 





Tips und Tricks für 
























































VC-20 + Tips und Tricks für VC-20 + Tips und Tricks für VG-20 


FTZ<FX,FYIZLAND(FXCHAXORFYS SAY) THENZ1SO SIIB5 
SA27> 2230 NEXT <h4> 
157% 240 AX=RXrAY=RY:GOTOZ140 <187> 
2900 TZEAX,AY}=-1:XX=0 Z12> 
<i> 2920 XX=XX+1:RX=AXHMX IX) ERYSAY+MYCHKI GI 
FTZIRK ,RY)CSOTHENZ2F20 21175 
<155> 2970 IFRX=ZANDRKY=1THENSOSUBTÖOOOT RETURN 2144: 
2375 AX=Rrkı AY=RY:BETOT145 Sad 
HRVSOFFF" 3000 FRINT"ICLEAR DOHNZ WHITE SPACHGFACH 
<idl> TUNGTSPACHT ©" £38F 
Sir z0H1 PY=INT{RNDCHHEL-DI)H+ZEPX=INT{RND (I 
I#(L-23)+2 BA ae3 
2132> #003 IFTZPX,FY) FOTHENZOGC1 . ATZE: 
SC10 FRINT"tEOHN SHITE}"3SFORI=LTOL:FRIN 
TIAR {22-L) 4/2) 3; FÜRK=1TOL 1365 
bb 3040 IFTZ(I,K) >OTHENFRINT" IRYSON WHITE S 
PACE RVYSGERF"4ETACI,RKI=1:B0TOIOA0 220 
3041 TZ11,K)=0: IFI=FXANDE=SPYTHENFRINT"IY 
E72 ELLOWFS*CHHITE "1: 60T03060 <4F> 
<iBi> 2050 FRINT"{ISPACHEY": ar 
Z066 NEXT=:PRINT:NEXT:FORSE=1OTOISTER-1:PF 
z215* RINT"SHOHE SPALEIFSEKUNDENTSPACEF : TEPACE 
£207> FIGENLLERFT SPACELF":TE=TIE 1087 
<iä2> 3130 IFT$=TI$THENSI13O <Q7% 
3140 NEXT: RETURN <aag> 
<1P1> So00 PRINT"{HONE DOKN RIGHT? HHITEYSIEG 
ISPAUEN"" £98> 
£133> S010 PRINTE$" {SPACE3:TASTELSPACE DRUECKE 
NCHOMEF "4: POKELI8,0:WAITIFO,1 Ben 
<1864> 5015 F(F)=F Dich ei 
<213> 5020 FORT=-1T05-1:FORK=T+1T05: IFCETI CE) 
THENSO4O " <ER% 
z1l4> 5039 MET} ECtTIebcK):ttk)=MEMSFIT)EFCTD 
bh =F{K)z FR) =M <217> 
<59%> 5040 NEXTK,T 21753 
«170> 2045 PRINT"{CLEAR BOHNZ?SPIELER"F"="PU"P 
LNKTE" «1ä1l> 
2131 E50 FRINT"{DOHNSF'SFORT=SSTOISTEF-1 <10S3:r 
ScoS5S5 PRINT" LRIGHT3Y"FLITI"ELEFTIIESPACEHZ 
<140> VEBETSPFACE3 = "CATISPRINT:NEXT:POKELFR,U:W 
<138> AIT1FB, 1: FU=0: IFF<STHENGOTOSO <2a6> 
S50&0 RUN 97: 


Aushausimulation 


Es gibt mehrere Möglichkeiten beim 

VG-20 mit Speichervollausbau, die ande- 

ren Speicherstufen zu simulieren. Einige 

funktionieren besser als andere. Hier sind 

ein Paar, die alle garantiert richtig funktio- 

nieren: 

für 3.5kb: POKE642,16:POKEG44,30: 
POKE648,30:5YS64824 

für 6.5kb: POKE642, 4:POKE644,30: 
POKES48,30:5YS64824!*1 

für + 8 kb: POKE642,18:POKe644,64: 

POKE64648,16:5Y564824 

für +16 kb: POKE642,18:POKE644,96: 

POKXE648,16:5Y564824 


| Meldung von 6.5kb frei Wer dann ver- 


sucht, ein Programm zum Laufen zu brin- 
gen, wird sich wundern. Wer als RAM 1bis 
3 nicht ausgebaut hat, benutzt folgende 
POKE-Folge: 

für +8->24kb ohne 3kb: POKE641,0: 
Poke642,32:POKE648,30/SYS64824 
Dadurch wird der Bildschirm RAM in die 
Lage der 3.5kb Version geschoben und 
der BASIC-Start auf 8192 gesetzt. 


Programmierte 


Speicheranpassung. 
Folgendes Programm wird vor dem ei- 
gentlichen Programm gesetzt und paßt 


I*! bedeutet, daß man bei dieser Änderung | den Speicher. dem Programm an, wenn 


aufpassen muß! Hat man keine 3kb Er- 


ein 3.5kb oder 6.5kb Programm bei Voll- 


weiterung, dann erscheint trotzdem die | ausbau laufen soll: 


GOsmaußs mip 


10 IF PEEK(44)=36 OR PEEK(56)= 
32 THEN 200 
20 A=PEEK(43)+256*PEEK(44):LB=A 
30 IF PEEK(A)=0AND PEEK(A+H)= 
OTHEN 50 
40 A=PEEK{A)+256"PEEK(AH): 
. GOTO30 
50 MB=A+H1:lF MB+4096>PEEK(55)+ 
 256*PEEK(56) THEN PRINT "SPEI- 
CHER ZU KLEIN“:END 
60 FOR A=MB+t TO LB-1 STEP -1 
70 POKE A+4608,PEEK(A):NEXT: A=LB 
80 IF PEEK(A+4608)=0 AND PEEK 
(A+4609)}=0 THEN 120 
99 POKE A+4609, PEEK(A84609)+1+ 
100 A=PEEK{A+4608)+256”*(PEEK 
* (A+4609)-18):60T080 
120 X=X+2:F X 1255 THEN X=X-256: 
Y=Y+1 


Ye 


5/86 


130 POKE47,X:POKE48Y 

140 POKE49,X:POKE50,Y 

150 POKE45,X:POKE46Y 

160 POKE43,1:POKE44,36 

170 RUN 

200 eigentliches Programm beginnt hier 


Programme werden auch so geladen, daß 
eventuell vorhandene selbstdefinierte 
Grafikzeichen nicht überschrieben wer- 
den. 


Anpassung von 
BildschirmPOKEs. 


Mit folgenden Formeln kann man den An- 
fang des BildschirmRAMs einer Variablen 
zuweisen, die dann mit den entsprechen- 
den Bildschirmpositionen gekoppelt, eine 
Anpassung an alle Ausbaustufen ermög- 
licht: 
$=4"(PEEK[36B65JANDT28)+64* 
{PEEK(36869JAND112) . Bildramvariable 
F=37888+4"\PEEK{36866JANDI 28} 
farbramvariable 
Variable S kann auch so definiert werden: 














„TRON“ 


Wieder einmal haben Sie gegen den Com- 
puter anzutreten. Ihre Spielaufgabe be- 
steht darin, den Gegner in Ihre eigene 
Lichtspur oder an den Rand des Spielfel- 
des zu drängen. Ihnen stehen 3 Lichträder 
zur Verfügung mit deren Hilfe Sie eine 


programme 


nichten sollen. 


(nach unten), 
steuert. 





S=PEEK(648)°256. Achtung! - 
© POKES#F,29: FOKES2,29 s236> 
1 REM--—--——-----.-.-..- «75% 
Z REM TREN <2415 
3 REM ıCIBY M.SPOTKE <47> 
4 REM IN 6094 RAUNHEEIM <142> 
BE REM----------.-...--. . x118> 
10 POKE77S,13:RESTORE: FORT=1TO48: READA:FO 
KE7157+T ,‚AzNEXT <br 
50 L=364878: 0=L-8158: E=L-1:5=E-I: LE=S$:PU= 
5: GR=0: POKE775,179: GDSUR&0O <62> 
&0 WAITIFR,1 <189% 
75 REM <23B> 
109 FOEEL,S:POKEL+1,29: FOKEL-11,172:POKE 
L -9,255: PRINT" {CLEAR BLACK RVYSONFSCORE: 
ISPACE RYSOFFI" „"IRED RVSON ‚ERACEFTLBPAC 
EIRTSPACEIOLSPACEINERVSOFF}: «1273 
110 PRINT" (BLÄCKT BEGEBEGEERBEERERERELARL 
GERERERREEBRRRRBeREREe" ; «38> 
120 FORT=1TO19:PRINTT@{RFSONS HH 
HHHHHHmHHeRKSOFFI@" aNEXT <105> 
130 FORT=B142T08165:POKET, OrPOKET+O,0:NE 
xT <219> 
135 REM <22> 
140 AD=-1:ADMeLIAcH=2IEAt4)=-2I: Fl 
=4Fc2)=5:FIiHI=Frft4)=2:B=INT {RND<1) #9) + 
1 <1978> 
1506 61=7768+1NT {RND{1)#*374) : IFFEEK (G1})£ > 
Z19THEN15O x1890> 
160 G=7932: F=2: Z=-27 “39% 
185 REM 72% 
190 FORT=1TOLES PRINT" CHOMES "TAB (22-7) "0 
NEXT <19F> 
200 GETT&$: IFT$=""THENZSO “2525 
210 IFTF$="Y"THENZ=-22: F=2: Q1=3: 6070750 <121> 
220 IFT$="B" THENZ=72: F=3: Ql=4: 6070250 x2> 
557 


230 IFT$="G"THENZ=+1:F=4:01=2: 6070250 


246 IFT$="T"THENZ=1:F=5: Q1=1: 6070750 

250 IFT$<C >" "ANDINT {RND<15*1) =OTHENG=D1 
z&0 FOKES, 180: POKEG+0O ,&: POKEG,1:6=6+Z: IF 
PEEK(G?< 3219 THENG1=G: LE=LE- 1260701000 


276 SC=SC+HL:POKEG+D,2:FOKEG,F: PRINT" {HOH 


E RYSON RIGHTE>Y"SCHCHOHE RVSOH RICHTIS3" 
280 IFAB=PUTHENPOKEL ‚155 POKES „220: Pl=Pyr 
S:LE=SLE+H: FORT=1T0300: NEXT: POKEL, S5:50T01 
96 

290 POKES „0: IFPEEK {51+A (BD) }=219 THENZ3ZO 
300 GOTO1300 

10 Q=0+1: IFG=5STHENG=O 

320 GETO2FO 

330 FORT=OTOGR: NEXT: POKEG1+0,5: POKES1 „1: 
Gi=G1+At0) s POKEGL1+B ,2:FOKEGL,F (0) 601020 
o . 

600 FPOKEL+1,25: FOKEL-11,172: PRINTCHRE (14 
DIPIELEAR BLACK> ". 

610 PRINT" {RVSON) BB@S@tSPACE} @BBELSHIETS 
PAGEZHB{SHIFTSPACEFSYWISHIFTSPACEZI EN" 

615 FRINT"{RFSOR SPACE2IS{SPACETISISPACE 
ZI@TSPACEIS{SPACE} ELSPALE2IESISPACETIE" 
620 PRINT"TAFSON SPACE2ZIWISPACETIREBISPA 
CE2IE{SPACEIE(SPACEZIELSPACEISLSPACEre" 
625 PRINT"IRFSON SPACEZIBTSPACEZFETSPACE 
ZIeiSPACFZIBTSPACEIIWBISPACETT EB" 

#50 PRINT"IDOHN REBF ICH TSPACEH 1 ISSTSPACE 
>IBY{SPACEIM.SPO SPOTKEISPALE2 RVS: RISCON) 
—tBLÄC" 

640 PRINT” {BOHNIVERNICHTE {SPACEIDASISPAL 








-EGRUENETSPACEZ DOHNFLICHTRAD, INDEMISPAC 





EIDIHSPACEIESTEPACE | BIHN SPACEHANTSPACEI 
DENTSPACEIRANDISPACEIODERTSPACEHIN" 

650 PRINT" {BOHNFLICHTSPURENTSPACEFDRAENG 
ST. TSPACE DOHN I | 


EU 112 











Osmoaußba mb 


Action auf dem VC-20 


möglichst große Anzahl von Gegnern ver- 


Das Spiel wird mit den Tasten Y (hoch), B 
G (links) und J (rechts) ge- 


Kommen Sie bei diesem Spiel nicht ins Rotieren. 


<100> 
x108> 


«114> 
SaS> 
x<125> 
<x93> 
AP7> 
“36> 
<193> 
577 
<87> 
*17> 
“1725 
x7&> 


<B> 


<213> 





1 


report 


&60 PRINTFISPACESTY. ou. « HÜCHTSPACEI11YB. 














1110 READD: PORES,N: FORT=1T0D*170:NEXT: PU 



































nu... RUNTERTSRACEIEF" <1F1> KES,0: FORT=11025: NEXT: GOTO1100 SFTH 
45 PRINT" {up SPACEFIGE sn a nu « LINKSTSPACEI 1200 POKES ‚Oo: POKEL+1 «S9: FOKEL-9, 240: PRIN 
Oben. „RECHTSTSPAGES" <150> TEHR$ (1A) "LCLEAR BLACKFY "3 3 IFSCHHITHENHI= 
670 PRINT"CRED RVSON UP SPACE} TASTEISPAC SC3 INPUT" SAMETSPAGEF"ENE “105> 
E*DRUECKEN. .. - - "»POKE198,0 743 1210 PRINT"ICLEAR RIGHTS SPACEFTUNKTE: "5 
700 DATA2S5 „255 ,255,255,255,255,255,255, 2: SC=0: AB=0 375 
247,247 ,247 0,287 ,247 5247 247 ,0,24,60,60 1220 PRINT"{DIHN RIGHTS SPAGE} (ISHTSPACE 
„24,60 <102> za: "Hl n “74> 
910 DATA124,0,0,126,60,24,60,60,24,0,0,2 1225 PRINT" {DOHN “11lör 
‚59,126,126,54,2,0,0,64,108,126,126,108, 1230 PRINT"TRIGHTS} TDOHNY" <=1> 
64,0 <123> 1250 PRINT"{RIGHTE} up" <103> 
9320 DATA195,1,2097,3,219,1,225,3,209,1,27 1260 PFOKE178,0:FORN=1TOZS:PRINT"{UP RIGH 
1,1,228,1,232,1,228,1,225,3,219,1,221,1, TE RVSONITIF3NKARVSONYTIFFF_ISPACE RYSON 
215,1 <AFF> 31 {E33 SERVEDNY-SESI":FORT=1T050: NEXT:PO 
330 DATA195,1,221,1,217,1,209,1,195,1,21 kES,155 “633 
9 ,1,207,3,201.,3,195,5,1. £131> 1270 IFPEEK (198) =LTHENPOKES „0: 60T010 <116> 
940 RETURN £b1> 1280 PRINT"{YP RIGHTEH CRVSON?AERIÄRVE 
1000 POKEG1 „&: POKEE,200 <21a> ONITIEZ SPACEITIRFSONISTESFTTRVSOH} "FO 
1010 FORN=1TD7:FORI=721&1T07724: Z=0: FOKEJ RT=1T050: NEXT: PGKES „225: NEXT: FOKES „0: 60T 
„255- {INT (RND{1)*2563 ) :POKEL,15-N#2:NEXT <66> n1o . “44> 
1020 POKEGL+Q,INT{RND (1) #6) +2: NEXT: POKEE 1300 IFPEEK (61-22) =219THENS10 «189> 
„OsPOKEL , 15: IFLE=0THEN1200 £159> 1310 IFPEEK (61+22)=219THENZ10 1925 
1030 GUTO100 <69> 1320 IFPEEK (61-1)=21FTHENS10 <135> 
1100 POKEL,15:READN: IFN=10RPEEK (178) =1TH 1330 IFPEEK (61+1})=2Z17THENS10 1393 
ENSO 21623 1350 SC=SC+100: AB=AB+1:60T01000 <73> 


Preiswertes Computer-Display 


Für manche Anwendungen müssen nur 
wenige alphanumerische Daten eines 
Rechners angezeigt werden. Ein Bild- 
schirm istoft zu groß und benötigt Netzan- 
schluß. Abhilfe schafft die neue LCD-An- 
zeige Typ 81000. Bis zu 10 Stück dieser 
montagefertigen Anzeigemodule können 
gleichzeitig an nur eine V24-Schnittstelle 
eines beliebigen Rechners angeschlossen 
werden. Die Module sind über Steuerco- 
des adressierbar, so daß man gezieltInfor- 
mationen an die gewünschte Anzeige ge- 
ben kann. Jedes Modul wird über nur ei- 








nen einzigen DB25-Stecker angeschlos- 
sen, über den auch die Stromzufuhr er- 
folgt. Da alle Module paralteigeschaltet 
und gemeinsam (ggf. auch vom Rechner} 


versorgt werden können, ist die Verdrah- 
tung besonders einfach. Die Displays kön- 
nen bis zu 1000m vom Computer entfernt 
angebracht werden. 


Technische Daten: 

Display: 2 Zeilen je 16 Zeichen, alpha- 
numerisch, Punktmatrix, 

Baudrate: 300-9600 Baud 

7 oder 8 Datenbits 


Stromversorgung: 5VDC oder 8- 20VDG 


oder 8 - 15VYAC 


Preis: 398,-- DM inkl. MwSt: 


Neu: FALCON Dust-Off Staubentferner 


Kleine Ursachen haben oft große Wirkung. 
Dazu gehört Staub und Schmutz, die Fein- 
de Nr. 1, wenn es darum geht Funktions- 
störungen in Laufwerken, Druckern oder 
Plottern zu beheben, oder hartnäckigen 
Staub in Gehäusen, Tastaturen, Schreib- 
köpfen, Typenrädern etc. zu entfernen. 


Mit Pusten, Reinigungstüchern oder 
Staubpinsein erreicht man nicht viel. 
Denn meistens sitzt der Staub da, wo man 
am wenigsten drankommen kann, oder 
man hinterläßt andere unschöne Spuren. 


Hier hilft FALCON Dust-Off. Ein trockenes, 
sauberes Gas, frei von Rückständen und 
Feuchtigkeit. 

Fusseln, Puder, Haare, Sand ... mit einem 
Knopfdruck blasen oder saugen Sie mit 
FALCON Dust-Off alles weg. Schonend 
und berührungsfrei. . 

FALCON Dust-Of# Staubentferner gibt es 
in 6 verschiedenen Größen und Ausfüh- 
rungen. Vor allem die handliche „Jumbo 
l“-Ausführung (Inhalt 355 ml} eignet sich 
besonders für zu Hause oder den mobilen 
Service-Einsatz unterwegs. 


Gompufs mir 
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interessantes Zubehör wie das FALCON 
Mini-Vac (= Absaugvorrichtung) oder der 
Duat-Extender (= 1 starres Kapillarrohr 
und 1 flexibler Verlängerungsschlauch) 
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ergänzen das Programm. Fordern Sie ko- | Zu beziehen ist das Ganze bei: 


stenloses Informationsmaterial an und 
lassen auch Sie sich von diesem neuen 
Produkt überzeugen. 


Merken Sie sich diesen Termin vor! 





Nachdem bereits zwei Computer-Floh- 
märkte in der Stadthalle von Wuppertal 
stattgefunden haben und eine große Viel- 
zahi von Besuchern diese Ausstellung be- 
suchte, wird die Ausstellungsfläche für 
den dritten Computer Flohmarkt noch er- 
weitert. So finden Sie am Sonntag, den 1. 
Juni 1986 von 11-17 Uhr in der Stadthalle 
in Wuppertal (Großer Saal und Wandel- 
halle) auf einer Gesamtfläche von 1250 
qm alles zum Thema Computer. 


Angeboten werden soll alles, was mit 
Computern zu tun hat. Private und ge- 
werbliche Anbieter können Unterlagen 
anfordern bei: 


Buchhandlung Werner Finke, Abt, Computer, 
Kipdorf 32, 5600 Wuppertal-. 
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sem Foto erkennen 
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Im Rahmenprogramm zeigen wir die 
neuesten HC’s und PC’s mit Demo-Pro- 
grammen. Unter allen Besuchern werden 
Sach- u. Buchpreise verlost. Einen Ver- 
such möchten wir in Wuppertal mit dem 
„Bithoven-Festival“ starten. Dazu suchen 
wir musikbegeisterte Computerbesitzer, 
die mit ihrem Rechner musizieren oder 
komponieren. Auch Firmen können ihre 
Hard- und Software zu diesem Thema 
musikalisch vorstellen. 

Interessenten melden sich bitte ebenfalls 
bei obiger Adresse. 





Wenn Sie Informationen über weite- 
re regionale Computer-Flohmärkte 
besitzen, teilen Sie uns dies bitte 
mit. Wir geben diese interessante 
Mitteilung gern an unsere Leser 
weiter! 








Das auf den vergangenen Computer Flohmärkten 
wirklich was los war, können Sie unschwer an die- 


Camnups meh 


ERNO PHOTO GMBH, Br.-Rudoif-Eberle-$ir. 45, 
7892 Bibbruck 1. 


STECKDOSEN- 
STÖRSCHUTZFILTER 


‚In preiswerter Industriequalität! 


Computer und moderne Elektronikgeräte 
sind immer leistungsfähiger geworden. 
Dafür haben sie sich ein Problem einge- 
handelt, sie reagieren empfindlich auf so- 
genannte Unregelmäßigkeiten des Ver- 
sorgungsnetzes. Unerklärliche Funktions- 
fehler werden oft durch Hochfrequenz- 
überlagerungen des Strom-Neizes her- 
vorgerufen. Weniger häufig, aber auch als 
Ursache von Fehlfunktionen, werden 
Überspannungen und Stoßspannungen 
infolge Blitzferneinschlag registriert. 


Die Gerätehersteller wissen das und tref- 
fen Schutzmaßnahmen, soweit sie wirt- 
schaftlich vertretbar sind. Man muß sich 
hier auf den Schutz gegen alltägliche Stö- 
rungen beschränken, die Kosten für ein 
mehrstufiges Breitbandfiiter würden 
sonst den Preis eines PC’s um einen er- 
heblichen Prozentsatz verteuern. 


Die Netzverhältnisse sind an den verschie- 
denen Einsatzorten nicht mehr gleich gut, 
oftmals ändern sie sich auch, weil die Zahl 
der angeschlossenen Verbraucher stän- 
dig wächst. Wer auf absolute Betriebssi- 
cherheit angewiesen ist, der kann sich 
sehr preiswert mit den hier vorgestellten 
Steckdosenfiltern schützen. 


Auch die auf PC’s abgestimmte Version 
entspricht Industriequalität, sie ist 
aufgebaut mit einem HF-Filter, einem 
Überspannungsschutz und Stoßspan- 


| nungsableitern. Der Stückpreis liegt bei 


DM 50,--. 


Herstellung und Vertrieb: 
METZNER-ELEGTRONIG, 
Postlach 1114, 7801 Umkirch 
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Programme 





Das hier veröffentlichte Programm stellt 
eine gelungene Variante des schon legen- 
dären Weltraum-Abenteuerspiels Space- 


Invaders of the Space 


für Commodore 16/116 


meiden. Sie haben dazu die Möglichkeit, 
Ihre Bodenstation mit Hilfe des Joysticks 
hin- und herzubewegen und die feindli- 
chen Angreifer abzuschießen. Mit zuneh- 


mender Spieldauer bewegen sich die An- 
greifer immer schneller auf Sie zu, so daß 
es den ungeübten Spieler zu Beginn des 
Spieles nicht auf Anhieb gelingen dürfte, 
alle Angreifer abzuwehren. Aber bei ein 
wenig Übung und mit etwas trefferschem 


Invaders dar. Sie müssen als Komman- 
dant einer Bodenstation die angreifenden 
feindlichen UFO’s aus dem All abwehren 
und ein Zusammentreffen mit ihnen ver- 











2 a ne on space | Geschick dürfte bald der absolute Erfolg 
2 REM BY eintreten. 

3 REM WOLFGANG DUNCZEWSKI 

4 REM  SCHMIDTBORNSTR.18 | Greifen Sie zum Joystick; Spielah! 
5 REM #238 FRANKFURT 88 

& REM TEL. 0697396294 

7 REM . 

8 TRAP 22222 =REM ERRORMELDUNG 

12 v=65288 

11 VOLS 


12 COLOR@,1-COLOR4,1 

13 PRINT"BBBG." : ERDE="" FORT=1 025: CRDE=ERDS+" BI": NEXT 

14 Ati)=15B: AlDI=1RBIACTI=ER: AA) =20 

28 FR=f:FORT=8321T0849: READA: POKET „Ar PR=PR+A: NEXT: IFPR<>Z11STHENFRINT"FEHLER 1000 
A":STOR 

25 SYSB32 

3Q PR=2: FORT=128981012911:READA: FR=FF+HA: IFA>—-1THENPOKET „A: NEXT 

31 IFPR£>7ZBSTHENPRINT"FEHLER IN ZEILEN 18818-10923":5ST0R 

32 FORI=BTO4: READB: PRINT"BLOCK": 1413 : PR=A: FORT=BTO127: READA= POKE1S 
33 PR=PR+A:NEXT: IFB< YPRTHENPRIMT" FEHLER" :STOP 

O.K.":NEXT 


312+129#1+T,A 


34 PRINT" 
35 I=5:READE:PRINT"BLOCK" 5 141; : PR=Q: FORT=@TO71:READA:POKEISSI2+H128# 14T ,A 

36 PR=SFR+A:NEKXT: IFBS SERTHENFRINT" FEHLER":STOP 

37 PRINT" O.K."® 

38 FOEEV+1B,PEEK (V+1B) AND2SI:REM BEI FEHLERSUCHE WEBLASSEN 

39 POKEV+1F,PEEK {V+19) ANDSZORA4B:REM BEI FEHLERSUCHE WEGLASSEN | 
42 REM NEUS SPIEL 
41 FRINTTGBBREENE INVADERS OF SPACE" 
42 PRINT"ER RY WOLFGANG DUNCZEWSKI 1786" 

43 PRINT" JOYSTIEE IN PORT II OR Z,0,M" 

44 FORT=1102008: NEXT ” 

45 SC=B:F=15: FOKEBSB,1:REM LEVEL 1 

47 FRINT"EREBICTIOYSTICK OR (KIEYBOARD 7" 


HR 
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48 GETAF: IFAF< >" J" ANDAF< >" K"THENAB 

49 POKEBSF,Q: IFA&="]" THENPOKEBSF „1 

Sg PRINT"BEBL" 

51 FORI=1T02 

52 FORT=2T016: COLOR1,T,5: PRINT" "NENEXT 
53 NEXT=:REM ZEILE 52 48% (LEERTASTE) 

54 SCH=RIGHT$ ("BOBBBD"+RIGHTE (STRE(SC)H „LENISTRE (SCH) -1) „6) 
55 PRINT"E";ERDSZ "SCORE: "3; SC$; TAB (20) ; "LEVEL" SPEEK (838) 3 
69 FÜORT=2TO2ASTEP4:POKEZ112+T „74: 60SUB1BAA: NEXT 

61 FÜRT=26TOOSTEP-4: POKES192+T ,71:60SUB1282: NEXT 

62 FORT=BTD28STEP4:POKES272+T „AB: GOSLBLBAA: NEXT 

63 FORT=28TOBSTEP-4: POKEISSZ+T „68: GÜSUBL1ABR: NEXT 

&4 FORT=8T028STEP4: POKES432+T „65: BOSUBLADQ: NEXT 

65 FORT=28TOUSTEP-4: POKESS12+T „45: GOSUBL1DOR: NEXT 

&& FORT=QTO2BSTEP4:POKESSI2HT 85: SOSUB1A@D: NEXT 


104 
200 


485 
410 
420 
430 
a35 
441 
442 
443 
444 
445 
450 


605 
“il 
620 
538 
635 
s40 
645 
550 
ass 
657 
[= 1-17, 
67/8 
[121 
677 
777 


1229 SDBUNDI „5B+T#5,7: RETURN 
: ZUU2 REM ZEICHENERELAERUNG 
2818 REM MUSS NICHT EINGEGEBEN WERDEN 


REM SPIEL ROUTINE ° 
FOKEO32, 20: POKEB34,8:D=l:E=0 21M E=E+1: IFESF*tPEEK {834} 7A) THENZOO 


FOKE13848,177: POKE13841 ,53 215 E=0:5Y5139537 

POKE836 ,‚B: POKEB37,B 22B SOUND „A{D} „4: D=D+1: IFD=STHEND=1 
PÜKE395?+28,64 230 SYS13927:1IFPEEK (837) THEN4O8 

REM SFIELRGUTINE HAUPT . 2428 IFPEEK (936) =BTHENGOR 

SYS1Z96Z ZED SYS1I3F63 

FÜKEB36 „dB: SYS13312:REM BEW. ANGR >52 GOTO1R0 


420 REM ENDE 


Sc=2: FORT=BTNS: SC=SCH {PEER {4038+T) 489) #1A* (5-TI = NEXT 
FOERT=1TO5B2: NEXT: SOUND1,9,58 
FORT=1 T042: 5Y513312: FORI=1T0O5G: NEXT= NEXT 


FRINT"EL." 

FRINT "ERBRREE" 462 PRINT"BRI": TAB{14) ; "SCORE",SC 
PRINTTABLLBI" ua no ar" 465 PRINT"ER]":TAB(14) 3 "HIGH "zHI 
FRINTTAB{1D)" #* E22 Ze 2 470 FORT=1T038: BETAF: NEXT 

FRINTTAB(1DBI" au 0. «" 475 PRINT" Ik <N> NEW GAME" 
FPRINTTAB(10)" * [u ZZ Zu 2 402 GETAF: IFAFX >"N" THEN4BO 
PRINTTAB(IDI" sun no u a" 458 GOTDAO 

IFSC>HITHENHI=SC . &ad REM RUNDE GESCHAFFT 


Sc=2: FORT=DTOS: SC=SC+ {PEEE (AUBSBH+TI -A4B) #10 I5-TI=NEXT | 

FOKE3S8,PEEK (838) +1: IFPEEK (838) >5SBDTHENPOKEBSB,SO 

IFFTHENF=F—1 

FORI=22TO9STEF-B. 5: SOUNDI ‚„B@aR-I*8,2:SOLUNDI, 81B-Ix8,2 
FOKEZBAB+AB#INTCII+PEEK {83573 „54 
POKESB7Z+AB#INTELI+FEER (832) „64: POKES1 1240 INTCDI +PEEK (9323 „32:2 NEXT 
POKESB72+PEEK (8352) „S2 

FRINT"LERRERRRISCORE "SC 

PRINT"EREBIBÜNUS +"; PEEK (838) *108- 139: SC=SC+PEEK (838) #100- 100 
FRINTTEEBE 7 7—o—6——---——— 
PRINT"IBBSCORE "375SC 
FORT=9.9TOBSTEP-B.835: PRINT "EERRRERLT 





KR" ; TABLZEI SZ INTETI = NEXT 


Fe 2BzB "B": HOME 
GOT0999 2821 "a"zWHT 


2u22 "W"sCLEAR 

2225 "B":YEL 

2024 "@":PFEIL UNTEN 
2225 "mW":PFEIL RECHTS 


10022 DATA142,8,189,0,288,157,0,48,189,0,297,157,8,47,202,208,241,96 
10B25 REM DATEN FUER NEUE ZEICHEN 
10B1M DATA 2,24,48,24,24,153,189,255 


10011 DATA 0.40.90,124,60,66.129.0 10B14 DATA 0,24,60,126,255,159,255, 102 
18013 DATA D.60,70,126.60,66,36.0 12D1& DATA 0,24,60,126,255,249,255,102 
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12017 
12018 
123017 
1220 
14421 
ıBa22 
188253 
10977 
12100 
1818i 
ıim1ıa2 
18143 
12134 
10105 
19105 
183107 
18188 
18107 
121198 
1B111 
18112 
18113 
12114 
i8115 





DATA Q,0,66,36,24,24,36,66 


DATA 2,0,16,16,380,120,8,B Kennen Sie schon das „eompute mit 
DATA 0,0,8,8,120,38,16,16 


„A,D,02 a ’ ’ ° 7} : | 
DATA 1726,60,24,126,24,24,0,0 j c-16/116 Sonderheft ? en Ze | 
DATA 126,60,74,24,126,74,8,0 
DATA 126,59,24,24,24,126,8,0 
DATA 0,0,24,24,24,60,8,0 
REM BLOCK i 
DATA13326,167,4,1533,5, 159,12,133,4,158,8,177,3,201 ,65, 144,36 ,201,77,175,32 
DATA238, 68 „3,24, 125, 1,201, 68, 208,2,167,65,2081,71,2988,2,167,68, 201,74 
DETAZBB,„2,167,71,201,77 „208,2,169, 7a, 145, 5 165,3, 24, iu5, 1, 133,3,144, 2 
DATAZZA,4, 165,5, Zu1, 231, 208,1977,165,4, 201, 15,209,171,7&, 189, 2,3535,3,1697 


| Fragen Sie Ihren Zeitschriftenhändler nach dieser Son- | 
derausgabe. “. 





DATA12,133,4,168,1,177,3,136,145,3,165,3,24,105,1,133,3,144,2,230,4,165 


DATAS,291,153,208,252,165,4,201,15,288,226,96,169,152,133,3,169,15,133 
DATA4,160,2,177,3,220 

REM BLOCK 2 
DATA1L3969,145,3,165,3,56,233,1,133,3,176,2,178,4,185,3,281,28,208,232,165,4 
DATAZBR1,12,208,226,96,169,112,133,3,169,15,133,4,160,0,177,3,72,152,24 
DATA125,42,168,184,145,3,165,3,56,235,1,133,3,176,2,198,4,165,3,201,255 
DATA?B8,226,165,4,221,11,708,228,96,174,64,3,169,32,157,112,15,32,152 
DATAS4 „234,234 234,234 ,234,74,74,74,176,1,202,74,176,1,232,224,0,208 
DATA2,162,1, 224,39, 208,2, 182,38, 142 "&4,3,169,64,157,112,15,96,173,66 
DATAS,201,90,208,1,76, 174, 56 

REM BLOCK 3 
DATA12532,3,189,27,216,133,4,189,2,216,133,3,172,65,3,169,32,145,3,72,152, 


DATA233,40,168,104,177,3,201,32,240,3,76,61,54,169,77,145,3,172,66,3 
DATA1364,148,664,3,192,0,208,9,169,8,141,65,3,141,66,3,96,173,66,3,2@1 
DATAQ,208,12,32,152,54,234,234 ,234 ,234,234,10,234,144,1,96,169,20,141 
DATAG&,3,173,64,3,24,105,40,141,65,3,96,174,64,3,169,32,157,112,15,173 
DATAGh,S,201,0,208,1,76,174,66,3,189,27,216,133, 4,189,2,216,135,3,172 
DATA65,3,169,32,145 

REM BLOCK 4 
DATA12350,3,96,174,64,3,167,64,157,112,15,173,66,3,201,28,208,1,96,174,66,3 
DATA189,27,216,133,4,189,2,216,133,3,172,65,3,32437,34,234,96,32,93,53 
DATAZ2,76,52,32,130,53,76,32,93,533,32,115,52,32,130,33,96,32,93,53,32 
DATA154,52,32,130,53,96,162,39,187,48,12,201,77,208,5,169,32,157,40,12 
DATA202,224,255,288,239,76,162,0,189,2,216,133,3,189,27,216,133,4,160 . 
DATAQ,177,3,201,32,248,18,169,1,141,67,3,169,177,141,16,54,160,39,177 
DATA3,201,32,240,18,167 

REM BLOCK 5 
DATA13510,2,141,67,3,169,167,141,16,54,232,224,21,208,205,76,32,177,53,169 
DATAQ,141,67,3,32,217,53,173,67,3,201 ,8,248,3,32,187,53,96,177,3,201 
DATAS2,298,5,169,77,145,3,96,167,32,145,3,169,0,141,66,3,32,123,34,96 
DATA169,32,145,3,32,123,54,76,49,53,72,138,72,162,5,189,199,15,24, 195 
DATA1,157,198,15,201,58,208,19,169,48,157,198,15,202, 224 ,255,208,233 
DATA194,178,124,96,162,0,1989,112,15,201,65,144,5,169,1,141,69,3, 232,224 
DATA49,208,239,96,72,168,72,172,70 

REM BLOCK & 
DATA7311,3,32,71,54,136,209,250,104,168,104,96,32,199,52,32,197,53,32,246 
DATAS2,32,58,53,76,134,3,173,71,3,201,1,288,11,169,2@1,141,8,255,173 
DAT68,255,166,3,96,167,0,174,198,0,224,12,288,2,9,4,224,20,208,2,9,8 
DATAZ24 ,36 ,228,2,7,128,73,255, 166,3,96 

REM | 
POKE65278 ‚196: POKE65297 „299: COLOR, 1: COLOR4,1 | E 
PRINT"EEBLARIISIE HABEN EINEN FEHLER" 

PRINT"BBBIIN DER ZEILE";EL Invaders of the Mi 
PRINT Ä | 
PRINT" BRBl" ; ERR$ (ER) | Space 


HELP kann gespielt werden! 
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Was gibt's Neues auf dem Software-Markt 


_report 





- Der Commodore 64 steuert Modellbahnen 


Allen Modellbahner dürfte Märklin Digital 
sicherlich ein Begriff sein und wie man 
hört, wächst die Zahl der Anwender stän- 
dig. In Amerika werden bereits der über- 
wiegende Teil der Modellbahnanlagen di- 
gital über Rechner gesteuert, eine Ent- 
wicklung, die auch bei uns nicht mehr 
aufzuhalten sein dürfte. Was bisher ge- 
fehlt hat, ist jedoch eine brauchbare und 
gute Sotware, die diese Probleme der Zug- 
und Signalsteuerungen erfüllt, damit ein 


reibungsloser Betrieb der Modellbahn er- 


zo 2 
re 


Mit dieser Schlagzeile ist das Spielpro- 
gramm „Time Slip“ der englischen Soft- 
warefirma „English Software Co! mit Sitz 
in Manchester kurz und treffend charakte- 
risiert, 

Nach dem Laden des Spiels erscheinen 
auf dem Screen drei verschiedene Spiel- 
motive. 

In Ebene 1 haben Sie eine Rakete durch ei- 
nen schwierigen Parcours zu steuern und 


eran 





folgen kann. 

Mit „COMSTELL' ist nun erstmals eine vor- 
bildgerechte Ansteuerung in Verbindung 
mit dem Commodore 64 möglich. Hier 
kann man zusammen mit einem Interface 
von bis zu 80 Lokomotiven und bis zu 255 
Weichen über den Computer steuern. Die 
eigentliche Neuheit aber ist, daß man mit 
diesem Programm bis zu 100 Fahrstraßen 
in den Gomputer eingeben und abrufen 
kann. Der Abruf erfolgt durch Start/Ziel 


Eingabe, wobei alle Weichen und Signale 


dabei feindliche Flugobjekte zu zerstören, 
Sollten Sie sich für eine bestimmte Zeit in 
dieser Ebene behaupten, gelangen Sie in 
den nächsten Level. Hier giltes, ein U-Boot 
durch gefährliche Gewässer mit zahlrei- 
chen Gefahrenquellen wie beispielsweise 
Riffe, feindliche U-Boote etc. zu steuern. 
Sollten Sie auch in diesem Fall nach Ab- 
lauf der Spiefzeit Ihr Fahrzeug vor der Zer- 
störung bewahrt haben, erreichen Sie 
Ebene 3 und damit die woht schwierigste 
Spielsituation. Auch erfahrene „Joystick- 
künstler“ werden hier Probleme bekom- 


men, einen Raketenmann schnell und si- } 
cher durch ein Labyrinth zu steuern, in | 


dem es von Gefahrenpunkten nur so wim- 
meit, 


Insgesamt gesehen ein Spiel nach alther- | 


gebrachter Methode, jedoch mit überra- 
schend guter Grafik und abwechslungs- 
reichen Spielsituationen. 


Zu beziehen ist dieses Programm bei der 
Firna Rush Ware. 
An der Gampkeshrücke 
4404 Kaarst 


ID nam mern ar 


frei in der Reihenfolge, in der sie geschal- 
tet werden sollen, programmierbar sind. 
Selbstverständlieh ist es auch möglich 
Fiankenschutz und Schutzsignale einzu- 
beziehen. Weitere Geräte zur Loksteue- 
rung und zum Gleisbild sind vorgesehen. 
Jeder der zu Hause eine Modelleisenbahn 
digital steuern möchte Kann nähere Infor- 
mationen bei 

Bvermann Modellbahn, 

Gneisenaustr. 102, 4100 Duisburg 

beziehen, 








Das Pragramm Defence-16 der Londoner 
Softwarefirma „Probe Software” ist ein 
Spiel, das für unsere Leser nicht beson- 
ders empfehlenswert ist. 


an 
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Bei diesem Programm handelt es sich tat- 
sächlich nur um eines der üblichen „Bal- 
ler- und Schießspiele“, Selbst die Grafik ist 
äußerst simpel gehalten, und die einzige 
Abwechslung, wenn man davon über- 
haupt sprechen kann, besteht aus den un- 
terschiedlichen Flugobjekten, die Ihren 
Raumgleiter bedrohen. Fazit: Ein Spiel, 
daß die Anschaffung kaum lohnt. 


der neue Akzente im Bereich der Spielpro- 
gramm-Programmierung seizt. Dieses 
neu entwickelte Programm erlaubt die Be- 
nutzung von über 200 Basic-Befehlen, die 
ganz speziell auf die Entwicklung von 
Spielen zugeschnitten sind.Der Anwender 
erhält auf diese Art die Möglichkeit, gra- 


fisch noch bessere und von der Spielqua- 


lität noch leistungsfähigere Programme 
selbst zu entwickeln. LASER BASIG-Be- 
fehle lassen sich in 4 Gruppen unterteilen: 








LASER BASIC für Schneider 


die Zukunft bei der Programmierung der 
Saale: | 


Die e Firma Oasis stellte kürzlich einen neuen „GAMES-Writer“ für den Schneider vor, 


Grafik 

Sound 

Strukturiertes Basic 

Toolkit 
Das Programm bietet dem Anwender die 
aus der Programmiersprache PASCAL be- 
kannten strukturierten Befehle, die für ein 
einfaches und transparentes program- 
mieren erforderlich sind. 
LASER BASIC ermöglicht Ihnen den Ein- 
satz der Sprites auf dem Schneider, wie 





Sie ihn bisher noch nicht gekannt haben. 

Zu erwähnen ist hier noch, daß LASER 
BASIC auch für den Commodore 64 ent- 
wickelt wurde. Hier ist das Programm 
noch leistungsfähiger und durch ein 
schnelleres Kassettenhandling noch an- 
wenderfreundlicher, Geliefert wird das 
Programm zusammen mit einem umfas- 
senden Handbuch zu einem Preis von 
56,-- DM für die Kassettenversion und 
74,-- DM für die Diskettenversion. 





Die Arbeitsweise bei einem lese- und 
rechtschreibschwachen Schüler wird sich 
grundsätzlich nach dessen Alter und Ent- 
wicklungsstand zu richten haben. Auch 
die verwendeten Materialien bzw. Lern- 
methoden müssen damit übereinstim- 


men. 

Für die 0.a. Zielgruppe, kann es dabei 
kaum noch um stures Üben an starren 
Programmen gehen. Viel mehr im Vorder- 
grund müßten Fördermaßnahmen ste- 
hen, die ein selbständiges Arbeiten mit 


Texten zum Ziel haben. 

Nach unseren Erfahrungen können dazu 
geeignete Software-Programme für Ho- 
mecomputer gute Dienste leisten. Diese 
nennt man Textverarbeitungsprogramme. 


Was ist bei der Auswahl eines solchen Programms besonders zu beachten? 


t. Groß-Kleinschreibung 
2. Umlaute „ä- 6 - U 
3. „3“ - Schreibung 


Leider ist dies nicht in allen Computerpro- 
grammen verwirklicht. Sie kommen des- 
halb für ein Training zur Überwindung der 


Lese- und Rechtschreibschwäche nicht 
infrage! 


Außerdem wäre zu fordern: 
4. Leichtes Erlernen und einfache Hand- 
habung 


5. Unterstreichen bzw. Hervorhebung 
einzelner Wörter oder wichtiger Merk- 
sätze durch Fettdruck 

6. Vielseitige Anwendungsmöglichkeiten, 
2.B. Briefe schreiben, Adressen spei- 
chern, Textteile verschieben - wichtig 
für Referate, usw. 


Was nützen nun die Textverarbeitungsprogramme in der LRS- Therapie ? 


1. Sie ermöglichen die Arbeit an frei ge- 
stalteten Texten (besonders wichtig zur 
Identifikation - fremde Texte sind nicht 
meine Arbeit!) 

2. Sie erlauben natürlich auch gezielte 
Lückentexte, in die Wortteile bzw. gan- 


ze Wörter einzusetzen sind. 

3. Sie gestatten den Entwurf und später 
auch die Ausgabe von Ubungsblättern, 
in denen bestimmte Wortteile oder Re- 
geln hervorgehoben sind. 

4. Sie fordern und fürdern eine sehr kor- 





rekte Arbeitsweise. . 


‚5. Sie gewährleisten jede Korrektur schon 


am Bildschirm, bevor ein Textzu Papier 
gebracht wird. (Wichtig ist die Vermei- 
‘ dung eines fehlerhaften Schriftbildes 
auf Papier. Ferner entfällt das Strei- 
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chen, Überschmieren, Überkleben | 7. So ganz „nebenbei“ erfährt jeder Be- | 11-jährige Schüler haben schon damit 
usw. -— das Gesamtschriftbild bleibt nutzer eines Textverarbeitungspro- | gearbeitet!), schlagen wir das weit ver- 
sauber!). gramms eine erste Einführung in die | breitete Textverarbeitungsprogramm "V- 


6. Lesen und Schreiben per Computer EDV, was jaauch nichtzu verachten ist. | ZAWRITE“ vor. 
unterstützt durch die Druckschrift eine | 8. Und schließlich werden alle Menschen 
- bessere Durchgliederung des Wortbil- am besten durch persönliche Erfolge 
des und vermeidet durch die Eingabe | zur Weiterarbeit motiviert. ‚| Info erhältlich gg. Einsendung ei- 
von Einzelbuchstaben das für Lega- nes adressierten und frankierten 
stheniker oft unangemessene Schreib- una Rückumschlages DIN AS bei: Rü- 


‚tempo der Schreibschrift. Das gilt übri- . diger Werner, Adam-Karrillon-Str. 
gens auch für die Arbeit mit einer ganz | Here Empfehlung: 14, 6500 Mainz, Tel. 06131- 
normalen Schreibmaschine. Wegen der leichten Erlernbarkeit, (bereits | 67 39.33 


COMMOPORE 16/116 « 


$ÖFT- UND HARDWARE IN GROSSER AUSWAHL! 
(JOYSTICKS/SPIELE/BÜCHER ETC.) 
KOSTENLOSE INFOS ANFORDERN BEI: 


» Softiare-Versand 


A. BACHLER 
POSTFACH 429 


4290 BOCHOLT 


SOFTWARE AUCH FUR ANDERE COMPUTER! 





Mini-Gar-Race jetzt auch für den G-16/116 


Nachdem das Programm „Mini-Gar-Race“ 
für die beiden Systeme Commodore 64 
und Schneider GPC 464 abgedruckt wur- 


de, liegt nun auch eine Version für den 
Commodore 16/116 vor. Hier können Sie 
mit wenigen Programmzeilen Action und 


Spannung auf dem Computer erleben. 








Rein ins „C-16/116 Cockpit“ und lassen Sie die Reifen quietschen! 





1 REM #% MINI-CAR-RACE 3 
2 REM VERSION Cils/ClE Pr ROLF ROESSER 
19 FRINT"I":B=15: A220: T=198:F=d: CH nn 
24 FORI=1TOT:HEATI:PRINTTABCESS "A "STABSEHLBNG" SPRINTUTIGTAROOHG" N 
3a PRINTTABCAI "mE" Ä 
4a IFA<B+LORA>B+LATHENGOTO13E 
54 P=P+1:R=INTERHIK1I#2)  IFR=BTHEHR=E 
ga IFR=1THENB=B+1 
74 IFB<@THENB=A 
3a IFE>ZTTHENB=27 
34 C=A:T=T-1:IFTSZTHENT=2 
199 IFIOWELI=FTHENASA-1 
119 IFJOYCL)=3THENA=R+1 
129 G0T028 IL Ä 
134 FORI=ATO16:POKESS3AS. 1:NEXTI:FRINT"SPUNKTE: "SP: IF JOWGL=LZSTHENRUN 
143 G0TO130 


B/RR Pamnuba mtb 21 





Heft 5/95 


Commodore 

Bestell-Nr. GOM CK 1/1 16,- EM 
Bestell-Nr. GOM CU 1/1 20,- BM 
Senso (G-16/116}, Jungle (6-64), Auto- 
start (C-64), Seguenzer (6-64, Sulo 
(6-64), Olympia (V&-20}, Flowers (46-20) 


Schneider 

Bestell-Nr. COM SK 1/1 16,- DM 
Cobra, Krimi, Haunted Castle, Q-Bert, 
AOM-CALLS 


Heft 9/85 


Cemniodore 

Bestell-Nr. COM CK 5/1 16,- DM 
Bestell-Nr. COM CD 5/1 20,- DM 
$upermani 65 {C-64), Galaxy (Ü-64}, At- 
lantis (C-64), Shaolin (6-16), Hospital 
{VG-20), Fliipper-Ball (VG-20), Alien 
{NC-20) 


Schneider 

Bestell-Nr. COM SK 5/1 16,- BM 
Bestell-Nr. GOM SD 5/1 39,- DM 
Duell, Crash, Gitylander, Klondike, REM- 
Killer 


soffware-service 


Hafı 6/85 


Commadore 

Bestell-Nr. GOM CK 2/1 16,- 8M 
Bestell-Nr. GOM 6D 2/1 20,- DM 
Mampiman (C-54), Softlanding 6-64), 
Karate {6-54}, Einbrecher (VG-20), Tan- 
ker {VG-20), Jupiter Rescue {VG-20}, 
$0S-Schiffbruch (C-16) 


Schneider 
Bestell-Nr. COM SK 2/1 16,- DM 
Tastaturbelegung, Dld- 


Cave-Runner, 


Heit 18/85 


Commodore 

Bestelt-Nr. COM CK 6/1 16,- DM 
Bestell-Nr. COM CD 6/1 20,- DE 
The Castle of Dr. Greep (96-20), Catehgo 
(VE-20), Sub-Zone (VG-26), The Maze 
Graze Game (6-64), Super-Breakout 
(6-64), Planet uf beath (6-64), Funk- 
tisnsiasien-Programmierung  (C-54), 
bar Aace (G-16/116), Key-Helper 
{6-16/116) 


Schneider 

Bestell-Nr. CGM SK 6/1 16,- DM 
Bestell-Nr. COM SD 6/1 39,- DM 
Labyrinth, Gatch, Mini Gar Rage, Inka So- 
gra, Single Disk Backup 





Heft 7/65 


Commodors 

Bestell-Nr. COM CK 3/1 16,- BM 
Besteli-Nr. GEM CD 3/1 20,- DM 
Sea-Attak (G-64), Sace-Age {6-64}, Mic- 
ro-Taols tG-64), Disky 1.0 (6-64), Stunt- 
man (VG-20), $epn {VG-20), Balloon- 
$hoont {VE-20), Farbenfroh (G-16} 


Schneider 

Bestell-Nr. EOM SK 3/1 
Bestell-Nr. COM SD 3/1 
Serret Valley, Smileymat, 
Super-File 


16,- DM 
39,- DM 


Heft 11/85 


Gommodare 

Bestell-Nr. GOM CK 7/1 16,- DM 
Bestell-Nr. GOM CD 7/1 20,- DM 
Interpreter Music-Language (6-64), Fi- 
relegion (6-54, Funklioasiastenpro- 
grammierung (06-64), Schatztaucher 
iC-16), Dangerous Planet (VG-26}, Geo- 
Zaxxon (VO-20) 


Schneider 

Bestell-Nr. COM SK 7/1 16,- DM 
Bestell-Nr. COM SD 7/1 39,- DM 
Etis, Alien-Hunter, Bemon-Altack, Ba- 
tenverwaltung, Discshow 





Heft 8/85 


Commodore 

Bestell-Nr. COM CK 4/1 16,- DM 
Bastelt-Nr. COM CD 4/1 20,- DM 
Drucker-List (UG-20), Flowers II (VC-20), 
Dino Eggs {VG-20), Piane ({G-16/116), 
Tank-Dueil (564), Vampir (064), Memory 
(GC-64), Raster Aegister, interrupt (6-64). 
Schneider 

Bestell-Nr. COM SK 4/1 
Bestell-Nr. COM 5D 4/1 
Gopter Patrol, Suchrätsel, 
Tower 


165,- DM 
39,- DM 


Heft 12/85 


Gommodore 

Bestell-Nr. COM CK 4/1 t6,- DM 
Bestell-Nr. COM CD 4/1 20,- DM 
Froggies Nightmare (VG-20), Wächter 
des heiligen Tempels (FG-20), Jumping 
Joe (G-18/116), Gity-Runner (G-16/116), 
Mission Rescue (6-69), Turbo-Jet 
(C-64), Prini-Generator {D-64), Datage- 
nerator (6-54) 


Schneider ° 

Bestell-Nr. COM SK 8/1 16,- UM 
Bestell-Nr. GOM SE 8/1 39,- DM 
Ghecksummer 1.0 CPG, Two Cherry 
Chaps, Erwin im Zauberschlod, Druck- 
steuerung NLO 401 


Alle hier aufgeführten Kassetten und Disketten können jederzeit nachbestelitwerden. Bei den Zeitschriften sind die Ausgaben 6/85, 
1/85 und 2/86 leider vergriffen und können nicht mehr nachgeliefert werden. Bitte beachten Sie dies bei Ihrer Bestellung. 
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Heit 1/86 


Commodere 
Bestell-Nr. COM CK 1/2 
Bestell-Nr. COM CD 1/2 


Reft 2/86 


Commodore 
Bestell-Nr. E0M CK 2/2 
Bestetl-Nr. COM CD 2/2 


Der Tronic-Verlag bietet Spitzensoftware‘ 
für Jederman. 


Überzeugen Sie sich von unseren Ange- 


Checksummer 1.0 6, Astronaut Battle (6-64), Hueycobra 
{C-16/176), Hardcopyroutine (C-16/116}, Helmut und die 
Zeitmaschine [G-16/116), Locos (VG-20), Reck'me 
(G-20), Charly der Raketenmann (VG-28), Interrupt- 
Programmierung {V6-28) 

Schneider 

Bestet-Nr. COM SK 1/2 15,- 
Bestell-Mr. COM SD 1/2 39,- BM 
Defender, Beuider Dash, Basic-Befehle auf den Funk- 
tionstasten 


Reft 3/86 


tommödore 

Bestell-Nr. GOM CK 3/2 

Bestell-Nr. COM CB 3/2 

Minor-Jumper {C-16/116}, Hero {G-16/116), Data-Maker 
(C-18/116), Befehlserweiterung (C-84), Starchip (6-64), 
Mini-Car-Rase {G-64), Text-Sergjier (C-64}, Text-Editer 
(C-54), Checksummer (V6-20), Rubin at Ravenwrechk 
(YG-20), Mini-Karate (VG-20), Autonumber-Houtine 
(G-20) 

Schneider 

Bestell-Nr. 50M SK 3/2 

Bestell-Nr. COM SD 3/2 

Smily, Serepi, Die verrückte Fabrik, Disc-Help 





Robn (6-64), Basic-Beiehlserweiterung (G-64), Rake- 
tenstart (6-16/116), Dreikampf {C-16/116). Headline 
(E-16/116), Defender {VC-20), Formel 1 {VC-20), Memo- 
ty-Display (#6-20) ” 


Schneider 

Bestell-Nr. COM SK 2/2 

Bestell-Nr. COM SD 2/2 

Alien 2001, Diamond Hunter, Directory 


Heft 4/86 


Eommedare 

Bestell-Nr. COM CK 4/2 

Bestell-Nr. COM CD 4/2 20,- DM 
Shuttle {VG-20), Josef in den Höhlen {VG-20), Merge- 
Routine [V-20}, Skoot it (VC-20), Fast Trust {C-64), Da- 
ta-Fext 64 (6-64), Gary, der schnelle Kabelverleger 
(6-16/116), $Di (C-16/116), Beep-Rontiee (C-16/116) 


Schneider 

Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. GOBi SD 4/2 39,- DM 
Space-Rescue, Texteditor, Starfight, Programm-Hetier 


SBaomsura mir 


boten und bestellen Sie noch heute. 
Alle Bestellungen werden innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellungen unter der Ruf- 
nummer 


05651/30011 





Aus diesem Heft 


Comnmiodore 

Bestell-Nr. COM CK 5/2 
Bestell-Nr. COM CD 5/2 
Schneider 

Bestell-Nr. GEM SK 5/1 
Besteil-Nr. COM SD 5/1 


16,- DM 
20,- DM 


16,- DM 
39,- DM 





B/BE 





software-service 


Programm Preis/ Preis/ Bestell-Nr. | Programm Preis/ Preis/ Bestell-Nr. 
Kassette Diskette Kassette Diskette 

















Multi-Key/S-Toal 64/ Besteltschein/blücky 8,50 DM 15,- DM Yal 
Interrupt-Pragramme 16,-- DM 21,-— DM UC 2/85 Multigraph/All Rammar 11,-- DM 15,50 DM Yn 
Spritehilfe/Bisklaader/ Zykio/Meteorit 11,-- IM 19,50 DM v8 
Directory 21,-- DM - bG 3.1/85 Garten/SchioB Gruselstein 14,-- IM 19,50 DM v9 
Tape-Directery/Asmon/ Fressman/Outlaw 14,-- DM 19,50 DM Y 101 
Bata-Generator 15,-- DM 21,-- DM UG 3.2/85 Prost/Buffala Bill 14,-- DM 19,50 DM. vı2l 
Fast Load 19,-- DM LG 4/84 Joy Man/Powerpack 14,-- DM 19,50 DM Y22 
Diskmonitor/Zeichensatz 20,-- DM - LG 5/85 Der rasende Malacher/ 
Reassembler/Maskengenerator 15,-- DM 20,-—- DM LUG 6/85 Frankie gaes to Pharao 14,-- DM 19,50 DM v32 
Bel-64/Treiberpragramm Matron/Obst 14,-- DM 19,50 DM va 
für 1525/MPS 802 Deselewator 14,-- DM 19,-- DM UG 7/85 Race On/Gayy 14,-- DM 19,50 DM v52 
Supertapedirectary/Renew/ Nürburg 3D/Düsi 14,-- DM 19,50 DM v62 
Kontrollabfrage 15,-- DM - uUC 8/85 Breaker/Expulsion 14,-- DM 19,59 DM v2 
Video-Utilities, Brückenhau/Jango 16,-- DM 21,50 DM vn 
Multi-Basie V3, Bildeditor 17,-- DM 23,-- DM 06 9/85 Inka-Schatz/ 
Better Basic/Autonumber/ Miner der Fassadenstreicher 16,-- DM 21,50 DM y23 
Kardcapy/Terminalpragramm 17,-- DM 23,-- DM DC 10/85 Booahy in Action/Bergshooting 16,-- DM 21,50 DM v33 
Speicher-Oszilleskap/ Zyklo/Geldsammier 11,50 DM - HGAY-t 
Makro-Assembler/Change Type 49,-- DM 54,—- DM LG 1/86 Star-Wars/Punktefresser 14,50 DM - KG/V-2 
Reactor/Conceriration/Datenbank 17,50 DM 23,50 DM AE/G-t Catch the Fish/Mister Jump 14,50 DM - HE/Y-3 
Warlords/Caveras of Death 14,50 DM 19,50 DM HC/C-2 Ghost'’s Eggs/Fox Hunt 14,50 DM - HC/N-4 
Alien-Destroyer/Duel 24,50 DM 29,50 DM HG/C-3 Goliector/Break Out 14,50 UM - HE/N-5 
Ocean Game/Tennis 17,50 DM 23,50 DM H6/G-4 0-Bert/Salvage Crew 16,50 DM - HG/Y-6 
The Gaves 17,50 DM 23,50 EM HG/C-5 Boy Fight/Schwitzbad 16,50 DM - BC/AV-1-4 
Gardener 17,50 DM 23,50 DM HG/G-5 Earth Rescue 14,50 DM - RE/V-2-4 
Olympic Biathlon/ Tarık 14,50 DM - HE-V-3-4 
Struggle for Life 24,50 DM 29,50 DM HL/C-2-4 Sprites/Space-Battle 13,-- DM 19,-- DM UV 2/85 
Pole Position/Save Grafik-Painter 10,-- DM - UV 5/85 
your teeth/Push 24,50 DM 29,50 KC/C-3-4 VIG-Clack 9,-- DM - UV 6/85 
Ufo/Skateboard Sam 24,50 DM 29,50 0M . HB/G-1-4 Decelerator 9,-- DM - UV 7/85 
Mauern/Widerstand 8,-- DM 15,—- DM Ga Joypaint 12,-- DM - UV 8/85 
Space-Comets/Erdspalte/ Disassembler, Old-Programme 10,-- DM - 9/85 
Sprite-Data 15,-- DM 23,50 DM cs1 Directory/Farh-JRQ 18,-- DM - UV 10/85 
Autostart/Besiellschein/ 
Roadpainter 16,50 DM 23,50 DM G61 
Hardcopy/Space-Fighter/ 
Data-Generator 15,50 DM 19,50 DM E71 - 
Monsier-Attack/Block- 
Painter/Enson-Drucker 16,50 DM 23,50 DM E81 
Projekt/Datentank 16,-- DM 23,50 DM 69 Autorennen 11,-- DM - US 3/85 
Spiders/The Basic 16,50 DM 23,50 DM G 101 Universal-Batei VI 9,-- DM - u3 4/85 
High Noon/Skeet/ Gomputerschritt/Symbol-Swap 18,-— DM US 5/85 
Grafik-Designer 17,50 DM 23,50 DM c 121 Keyhoard Toolkit/Farbdecodierung 11,-- DM - - 05 6.1/85 
Painter/Star-Baddle/Editor 17,598 DM 23,50 DM C22 Aladin 9,-- DM - US 6,.2/85 
Wüstenraliy/det-Pac/ Painter/Box-Befchl 14,-- DM 24,-- DM us 7/85 
Black Moore Gastie 17,50 DM 23,50 DM 632 Maschinensprache-Monitor/ 
Brieftaube/Cadelon 19,50 DM 24,50 DM G42 Disk-Hilfe 15,-- DM 265,-- DM US 8/85 
Ritter Erik/Grand Prix Spritehiife 19,50 DM 24,50 DM 652 Basic, Maschinen-Kit t2,-- DM 22,-—- DM US 9/85 
Firebird/High Music 24,50 DM 29,50 DM C62 Backup/Direetory/ ' 
Moonsweeper/$cotti 24,50 DM 29,50 DM 672 Eilipse/Disk - 27,-- DM US 10/85 
Tran/Mercurious 24,50 DM 29,50 DM 613 Data-Benerätor/Grafik Taolkit/ 
Interceptor-Basel/Schotter 24,50 DM 29,50 DM 623 ASGH List (Turbo Pascal} 15,-- DM 25,-- DM US 1/86 
Jump-Man/Space-Taxi/The Way 24,50 DM 29,50 DM 633 Falischirmspringer 9,-- DM - HG/SR-3 
Geisterschioß 9,-- DM - HC/SR-4 
Zeichendesigner 12,50 DM - HG/SR-5 
a ar Mini Car Race/Interseptor 30 17,50 DM 26,56 DM RE/SR-6 
Neu in unserer Software-Bestell. Mini Car Bar ins 20:50 KE/SHE 
. Space Invaders/Mini Pac/ 
lis te der Ottis „Sound“ 17,50 DM 27,50 DM HC/SR-2-4 
Samson und die Kisten/ 
: Die verflixte 15 17,50 DM 27,50 DM HG/SR-3-4 
\ A ®& Super-Miner 14,-- DM 24,-- DM SR 42 
. vpc-Bert 14,-- DM 24,-- DM SR 52 
Ceuan’s Castle 15,50 DM 25,50 DM 5A 62 
Fantasy-bountry Snider's Mace 16,50 DM 26,50 DM SR 72 
Horrar-Lastle 18,-- DM 23,-- DM 023 Schneider Panik/ Killership 18,50 CM 28,50 DM SR 13 
Moon Fighter/Goldrausch 18,-- DM 23,-- DM 033 Korror-Gaves/ . 
Zeichendesigner 14,-- DM - un 8/85 Midnight 18,50 DM 28,50 DM 5R 23 
OLD-Routine-Merge-Routine/ Gosmis-Gastle/Spider-Mare/ . 
Change Type 14,-- 19,-- u0 1/86 Traumlard 18,50 DM 28,50 DM SR 33 
5/86 Sempnufe mie 


33 





34 


programme 


Sie sind der U-Boot-Kommandant von „U 
723“ und haben den Auftrag, der feindli- 
chen Marine einen empfindlichen Schlag 
zu versetzen. Als kampferprobter und er- 
fahrener Kommandant dürfte Ihnen das 
kaum Schwierigkeiten bereiten. Sie haben 


28 
21 
25 


G0TU116B 


FORESS,259: POKES4, 55: ELR 





Submarine ist ein Action-Spiel, 


in dem es darum geht, die vor Ihnen 


erscheinenden Schiffe zu versenken. 


nach dem Tauchmanöver sofort alle an 
Bord befindlichen Torpedos scharf ma- 
chen lassen und sind auf diese Weise sehr 
schnell kampfbereit. Für jeden Torpedo- 
treffer erhalten Sie eine bestimmte Punkt- 
zahl gutgeschrieben. 

Zu beachten ist bei dem Highscore, daß 


COLOR®,7,3:COLOR1,7,3:CDLOR4,743 


dieser erstnach Ausschalten des Compu- . 
ters auf Null springt. 

Die Steuerung erfolgt entweder mit dem 
Joystick. oder über die Tastatur (CURSOR- 
+ SPACE-Taste). 

Das Spiel verspricht viel Spannung und 
Nervenkitzel. 


SCNCLR:?POKE65298, PEEK (65298) ANDZS1: : POKE65299 „PEEK (65299) ANDSORS&: POKE748,56 
TRAP1S@8: VOLB: HI=PEEK (248) #254+PEEK (209) 
SSATE=B: SDC=B: PDC=B: DDC=0: TPY=2: SC0=2 
EOLOR1,15,2:C0L0R@, 7,4: COLOR4,7,3:5UX=15: TROP=2Q 
CHAR, 1S ‚7, "SLUBMARINE" CHAR, 18,12," #4] " 

CHAR, 1@,15,"% SPRENGER SOFTWARE" 


CHAR,B, TAT 


CHAR,B,17," Lo 

FORA=8T016: CHAR „B,A," 1": CHAR,3@,A," ("zNEXT 
LIFN< >@THENCHAR, 13,21, "HPRESS ANY KEYE":G0TO360 
FÜRA=1T04: SOUNDI, 685,9: SOUND1,739,7: NEXT: SDUND1,778, 28: SOUND1 „685,20 
FORN=1T02@@2: NEXT: PRINT=SENELR 


PRINT:FRINT TAB (14) 
FRINT TAB(I4) 
PRINT 
PRINT" 


"SUBMARINE" 


THE IDEA OF THE GAME IS TO DESTROY" 


PRINT" ENEMY SHIFFING BUT AVGID DEPTH CHARGES" 


PRINT" 
PRINT" 


DRÜFPPED BY TORPEDO BOATS 
SPELL INSTANT Os DEATH ai" 


"|" THESE" 


PRINT=SPFRINT" USUAL CURSORLCONTROL {LEFT/RIGHT)I" 
PRINT" SPACE BAR {FIREI OR JEYSTICKCONTROL" 


PRINT" -L", 
PRINT 

PRINT" ——" 
PRINT 
PRINT" 
PRINT. 
PRINT" 
PRINT 


Ie_" , 
ur, 


490 
410 
A420 
430 
44 


CHAR,@,A,"G 
NEXT 

CHAR 9,24," 
SHX=33 

RESTORE 458 
DATA" I. \ ",50, 


FORA=1TO(RND(TII*SI +1 


READSH$ „VA 


‚„"254 POINTS" 
"259 POINTS" 


"Sa8 FOINTS" 


Be 


"180aRa POINTS" 


Ss32 
348 
358 
Ss6R 
378 
598 
3972 


PRINT" _| [4 
COLOR1,1:PRINT 
PRINT" 
GETKEY A$ 
SCNELR 
COLOR1,15,2 
FORA=121T023 


“‚1008,"\T 


[1] „250, En 


Camnupbe mib 


„"58 POINTS" 


PRESS ANY KEY TO START" 


M":POKEAB71,168 


"500 , "g. ., 254 





B/ar 


488 
478 
588 


programme 


NEXT 
S= . 25+ INT (RND (BD) #6) +1) 78 
RESTORE 


S18 CHAR,B,11," " 


328 
ROP) 


CHAR,2,1,"BSCORE: ":CHAR,3,1,STRFSCO)I CHAR, 26, 1 ,"TORPEDOS: ": CHAR,„S3S, 1,5TRET 


539 CHAR ,2,3, "HIGHSCORE: ":CHAR,12,3,STR$ HI) 


548 
358 
Km 1 | 
578 
SsB8 
570 
sau 
618 
628 
H3B 
| 448 
658 
sa 
678 
758 
768 
778 
79a 
778 
808 
gsıı 


m". :5 
8838 
F7u8 
898 
780 
718 
928 
938 
940 
958 
768 
770 
= 
1208 
1") 
12818 
1128 
11:0 
1128 
1148 
1152 
1168 
1178 
i1F72 
1208 
1719 


IF TROP<IB THENCHAR,ST,1," " 

GETA$: IF (A$=""ORIDY (1) =7) ANDSUX>1THENSUX=SUX-1 

IF (A$="M" ORJOY (1) =S) ANDSUX<SSTHENSUX=SUX+1 
CHAR,SUX,23, "0 #1 m" 

COLOR1 23 CHAR,SHX,11,5H$ 

IFtA$=" "ORIOY (1) 3127) ANDSSATE=BTHENSSATE=1: TROP=TROP-1 


IFSSATE=1THENGOSUB728 

IFSSATE=BTHENGSOSUB&FE sen GOTOSZa 

IFTROP<BTHENSOTDI2U 2 PO=SUX 

IFSDC=1 THENGUSUBBSA 1 708 TPY=22 
IFSDE=BANDVA=1GBBANDRND (B)<.ATHENGOSUBBERB | 71@ RETURN 

SHX=SHX-S5 j 728 COLOR1,2:CHAR,PO,TPY+1,"D m" 
IF (SHX< LANDTROP< 1) THEN92B 73@ CHAR,PO,TPY,"W MM" 

IFSHX< 1LTHEN43@ 748 IFTPY>12THEN?98 
IFTPY=1ZTHENSSATE=B: CHAR,PO,TPY,"iE mw" 


IFTPY=1ZANDPEEK {3512+P03 < >32THENCHAR,PD,TPY-1,"BH ":SCO=SCO+VA:ELSE7IO 
FORA=1T0180: NEXTA=: FORY=1TOB: SOUNDS , 4BG+RND (9) #108,5:NEXTY 

CHAR,@,11," ".GOT0358 
TPY=TPY-1:SOUND1 ,78@,4:RETURN 

PDC=SHX 

SDC=-1 

DDC=13 

SOUND2, 108,2 

RETURN 

CHAR,PDE,DDE-1, "IK =" 

CHAR ,PDE ,DDE, "ae" 

IFDDE=23THENCHAR ,FDE ,DDC, “ul " FORA=1TOSB: NEXT= SOUNDS ‚498,5: CHAR „PDC ,DDC , "(3 
DC=2 
IFDDC=22ANDPEEK (3992+PDE)< >1L6BTHENCHAR,PDE,22,”" M":CHAR,SUX+1,23," 1 | "ELSE 


SOUNDS „400,58: FORA=1 TO1AU9: NEXT:CHAR,SUX ,23,"09  ":G0T0958 
DDCE=DDCG+1 
RETURN 
SCNELR 
EHAR „5,12, "BGAME AVERE YOUR SCORE IS "=CHAR,S1,12,5TR#(SCD) 
E0TOF82 
SCNELR 
CHAR,7,11,"BEDEPTH CHARCE GOT YOU" 
CHAR,9,13, "gYOUR SEORE WAS" :CHAR,24,13,5TR#(SCO) 
FORA=1T025@0: NEXT: YY=B: RU=B 
IFSCO>HITHENHI=SCO: POKEZRB ,, INT CHL/254) : PDKE2BY „HI- (INT CHI/256I #256) 3 ELSE11®@ 


CHAR, 13,20, "IINEW HIGHSCORER" : FORA=SARTOLAZBASTEPS: SOQUND1 ,A,I:NEXT 
EHAR,„7,17,"DO YOU WANT TO REFLAY (Y/ND" 
BGETKEYAF: IFA$="Y" THENSENELR: GOTDZ7 

IFAFL>"N"THEN111B: ELSE1SGO 

NEXTT: RETURN 

SEOTOSSBR 

FRINT"LMONITTORBRERN"S PRINT"T DERB Daaa 3802": PRINT"RK":PRINT"BSOTO1170" 
FOEE1319,19: FORA=1 32871013273: POKEA, 13: NEXT: POKE239 ,572 END 

RESTORE 1240 - 

FORB=14957541015831 
READE 


L) 
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werkstatt 





1220 
123582 
1240 
1258 
1264 
1270 
1782 
1278 
1388 
1519 
1328 
1338 
15348 































100 
ilo 
120 


ee 
Fa 







10 

320 

inoo 
i010 
ioiS 
1020 
1020 
1021 
i032 


1040 
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„192,224 ,255,235, 254,0 
F 


1,3,255,127,63,8 


2B,62,255,255,255,255,0 
2,0,192,274,255,255,254,0 






0,2,3,55,255,127,63,B 


4,28,390,254,259,255,2595,8 
0,4,192,250,255,255,254,0 


0,2,120,120,170,0,0,0 


137,74,42,8,255,255,126,0 


24 ,24,24,24,24,24,36,36 


69,66,153,161,161,153, 66,60 
POKE65298 , 196: POKE65299 „208: 


POKEB,CHNEXTB 1359 DATA 0,0 
GOTO2S 1368 DATA 2,G 
DATA 1,3,3,127,255,255,127,8 1379 DATA 4,3 
DATA 0,172,172,248,255,255, 248,8 1392 DATA 
DATA 8,8,3,3,255,127,63,8 1390 DATA 
DATA 8,62,68,253,255,255,255,8 1400 DATA 
DATA 8,0,8,192,255,255,254,0 1418 DATA 
DATA 8,0,8,24,255,127,63,31 1422 DATA 
DATA 8,90,1,15,255,255,259,255 1452 DATA 
DATA 1,255, 749,755,2593,255,755,255 | 1440 DATA 
DATA 0,3,243,255,255,755,255,255 1458 DATA 
DATA 8,0,172,236, 255, 255,255,25?2 15008 

DATA 8,8,0,3,255,127,63,8 POKE740,288 





BZ ONZEOTOLIOO, 1000 


GRAFHICR, 1 
ORAW1,150, S5T0150,150 
DRAW ,5, 100103109, 100 
CHAR1,1,12 „r—K" 

CHAR „29, 12,"4X" 


Funktionsplotter: 





WERTEFASRE 


15 SCNELR 

il vos 

12 FORZ=40GT0700: SOUND2, Z,0..001 
13 WEXTZ 

25 FRIST pebEhR 

20 FRINT'ERRERRTND 

40 

ERDEN" 

42 

43 FRINT"’NELE FORNELT"SFRINT"NEIN=1 
44 INPUTN 

47 GNNGOTOSO „500 

So 

50. INFUT"ELEINSTER WERT"3&A 

70 INPUT"GROGESSTER WERT’IE 

SG FRINT "SERAFHID (1 

51 INPUTZ 


1.4 
125 


127 


iz 


1393 


1512 END 


Programm. 


SSFUNKTIONSPLOT" 
1786 EY R.KRUESER" 
FRINT"EREDIE DARZUSTELLENDE FORMEL MUSS IN 


JA=2" 


FRIMT"GEBEN SIE JETZT DEN ZU EERECHNENDEN 


pe 2 


CHAFI,1B,1,"+Y" 
CHAR ,13, 18, -y" 
CHAR) IB,8,"30" 
CHAR1 12,12, "50" 
CHAR1,24,12,"50” 
FORX=ATOR 


ER ZEILE 2000 ABGELEGT W 


BERRICH DER K-WERTE EIN" 


00 SONELR:FRINT"SETZE NEUE FORMEL IN ZEILE 2000 EIN" 


=03 FRINT"STARTE DANACH MIT <ERUNGS" 


LISTEOOG:STOR 
GOTOSc 
SENECLR: GRAFHICCLR 
FRINT' ERS 
FORK=-ATOR 
GOSUBSO00 
PRINT"KX=";X, 
T=T+i 
IFT=ZUTHENEOOO 
HEXT 





"Tix)="; 


WERTEFAARE" 


Y 


Zn 
2005 
PARAT“) 
zol 


2011 


SucH 
=010 
AO 


Zoch 


MDarnıben ih 


FRINT"DIE Z.ZT.DARIN BEFINDLICHE FORMEL LAUTET: ":LISTIONDO 


140 
135 
120 
ZOG 
210 


be Ba} 
m. 


SOSURFOOO 


NEXTX 
SETEEYAF 


GOTOZO 









Einer Erklärung bedarfes an dieser Stelle nicht. 4 
Tippen Sie das Programm ab und geben Sie die | 
zu plottende Formel ein. Den Rest erledigt das 


DRAW, 150rX, 100-7 


GSRAFHICDLF:SCNHELR 






Y=43#5IN it (X8o/ 909770 
IFX=RTHENZO11 
TRAFIC0G 
RETURN 
FREINT’SITASTEB 
FRINT"BSTASTER" 
GETEEYAF 

T=-1: 50TD1O20 
RESUMEZOID: NEXT 


ac 









IB REM MHHRRERARHHHRHHRHH REIHE 


programme 


Als weiteren Beitrag zu Thema - Grafik mit dem GC 16/116 - ha- 
2. Eben wir das Programm Balkendiagramm. Hier können Sie Daten 
Balkendiagramm eingeben und diese dann grafisch darstellen. So könnten $iez.B. 
u eine Wahl simulieren oder Umsatzdaten darstellen u.v.m. Der 

‚Einsatz ist in vielen Bereichen denkbar und möglich. 


Innerhalb des Programmes wurde aus Geschwindigkeitsgrün- 
den nicht die „bit-mapped“ hochauflösende Grafik verwandt, 
sondern der Autor hat einen neuen eigenen Zeichensatz defi- 


=0 REM * * - [1 “ . = " 
5@ REM * BALKEN-D IAGRAMM * niert. Dieser umdefinierte Zeichensatz entspricht aber auch einer 
40 REM * * hochauflösenden Grafik. Die Handhabung des Programms ist 
jr Ren * VON * denkbar einfach und komfortabel gestaltet. So werden Sie beiei- 
* x . “ur 
l 
78 REM * JOERN SCHAEFER „ ner falschen Eingabe aufgefordert, diese nochmals korrigiert 
BG REM * „ Vorzunehmen. 


DB REM ern 


193 
110 
122 
138 
140 
152 
154 
172 
158 


POKE 55,255:POKE 56,59:CLR:TRAP 1648 

POKE 65286,B0: FÜR X=15360 TO 16383:READ YrZ=Z+tY:POKE X,YsNEXT 

IF 2<>67797 THEN POKE 65284,27:PRINT"LREMFEHLER IN DATAS":END 

POKE 65278,8:POKE 65299,60:POKE 65286,27 

PRINT"ERLAN"CHRS (LA) CHR$ (BI SCOLGR 4,14,1:C0L0R 9,3,1 

FORX=1 TO 14:CHAR 1,X,8," CHANG"SCHAR 1,35-X,8,"LAB ":FOR Z=i TO SS:NEXT Z,X 
X$="(EIN STATISTIKPROGRAMM) "zFORX=1 TO 12:CHAR 1,20-X,10,LEFTS(XS,X) 

CHAR 1,28,1B,RIGHTS(X$,X):FORZ=1 TO SS:NEXT Z,X 

FORX=23 TO 12 STEP-1:CHAR1,18,X, "VON"SCHARR 1,18,X+1,"  ":FORZ=1 TO SS:NEXT 


Z,X 


178 
228 
218 
220 
x 

259 
240 
258 
268 
270 
298 
z98 
sun 
318 
3208 
3350 
348 
350 
35 
378 


>70 
408 


420 
438 
448 
458 
460 
470 
480 
498 


8/66 


X$="JOERN SCHAEFER" 

FORX=1 TO 14:CHAR 1,13,14,MID$(X$,1,X):FORY=1 TO SS:NEXT Y,X 

FORX=1 TO 14:CHAR 1,X,16," — I I"sFORZ=1 TD 55:NEXT Z,X 

VaoL. S:FORX=1 TD F:FORY=FUR TO 1920 STEPIB:SOUND 1,Y,2:50UND 2,Y-89,2:NEXT Y, 


A=100: B=1:C(1)=28:D$ (1)="PROBE BEISPIEL 

COLOR 8,1:C0OLOR 4,7,2:C0L0OR 1,8,5:SCNCLR 

CHAR 1,14,2,"M E N U E":CHAR 1,14,3, a 

x#(1)="1. DATEN EINGEBEN “ 

xX$(2)="2. DATEN VON KASSETTE LESEN u 

X$(3)="3. DATEN AUF KASSETTE SPEICHERN " 

X$(4)="4. BALKEN — BRAPHIC ERSTELLEN " 

X#(5)="5. FROGRAMM - ENDE “ 

FORY=1 TO 11 STEP+2:COLOR 1,3, {Y/2)+2:CHAR 1,3, Y+3,X$ (Y/ZI NEXT Y 
CHAR 1,1,17,"RCOUSER TASTEN 7 AUSSUCHEN 

CHAR 1,1,21,"SPACE / 1,2,5,4 ODER 5 WIRD ANGEWAEHLT": Z=B:60T0 37% 
X=PEEK(198): IF X=644 THEN 340 

IF X=49 THEN 420 

IF X<>43 THEN IF X<>48 THEN 340 

Y=eZ:ılF X=45 THEN Z=Z-2:ELSE Z=Z+42 . 

IF Z<20RZ>1B THEN Z=Y:G0T0 348 

COLOR 1,3, tY/2)+2:CHAR 1,3, Y+4,""2PRINT"M"X$(Y/2) 

COLOR 1,3, 12/2) +2:CHAR 1,3, 2+4, ""2PRINT"PX$(Z/2) 

SOUND 1,989,2:6010 348 

POKE 239,8:0N Z/2 60TO 449,629,739,780,438 

COLOR 8,7,4:COLOR 1,1:C0LOR 4,5,33SCNCLR:END 

COLOR 4,3,25COLOR 9,6,4 

PRINT"LEREIESEBEN SIE DEN GRUNDWERT EIN. 

PRINT"@BIC NACH DER EINGABE WSHRETURNG>E ) 

PRINT "RRBIGRUNDWERT : 

PRINT"RRBH---- “: INPUT" SA . 
PRINT"EBERBGEBEN SIE EIN WIE VIELE BEREICHE SIE BAUSRECHNEN WOLLEN. 


GSompuhe miP 37 


Programme 


SBB PRINT" NACH DER EINGABE (KIRETURNG>E } 

518 PRINT" IRBBEREICHE: (HDECHSTENS 7) 

S2B PRINT"IEBH--------—— ":INPUT"LIOBI";B 

S5@ IFB>7ORB<1THENZSE="BITTE EINE ANDERE ZAHL EINGEBEN. ":5605UB 161@:60TO 498. 

540 FORX=1 TO 73DE(Xi="anetsNEXT X 

552 H=2:FORX=1 TO B 

368 PRINT"KERMBITTE DIE"ZX"EINGABE >>>"; 2 INPUTCCXIEH=H+CCKI IF CCEXI COTHENE ON =B 

578 INPUT "REKOMMENTAR P>>"5DEH: D$S(XI=LEFTSCDEX) „52: NEXT 

Sad IF H-1<A THEN 410 

59a Z$="IHRE EINGABEN SIND HOEHER ALS DER u 

s0R Z$=24+"WSRUNDWERT. EINGABE WIEDERHOLEN „"=:50SUB 1612:G0TD 51a 

öi8 PRINT '"BBREKHSPACEW>E DRUECKEN" : GOSUB1630: G0TO742 

828 GOSUB 638:6010 678 

658 COLOR 4,3,2:C0OLOR 2,7,3:PRINTIRIKE A SE T TEE ODER WDR IS K 

640 PRINT"RADRLECKE ENTSPRECHENDEN BUCHSTABEN 

558 GETKEYX$: IF X$="K" THEN F=BsELSE Fe7 

&60 INPUT"BMWELCHER FINAME >>>?" Y$ 

67B IFLEN(Y#) >15 THENZS="FILNAME ZU LANG. ":60SUB 1618:50T0 668 

688 RETURN 

698 FOKE 2023,1:0PEN 1,1+F,80,Y$: INPUT#1 ‚A: INPUT#1,B 

7aa FORX=1 TO B: INPUT#L, cv: INPUT#1 „D$X: NEXT 

712 CLOSE 1:POKE 2923,9:CHAR 1,18 ‚23, "KKISPACEE>= DRUECKEN 

720 GOSUB 1638:6010 248 

730 GOSUB 6352: POKE 2023,1:0PEN 1,1+F,1,Y$ 

748 FRINT#1,A:PRINT#1,B 

758 FORX=1 TO BzPRINT#1,CCX)2PRINT#1,D$ (X) NEXT 

768 CLUOSE 1:POKE 2923,8:CHAR 1,19,23, "SKRSPACEB>E DRUECKEN 

778 GOSUBE 1439: 60T0 248 

788 COLOR 8,12,1:CDOLOR 1,8,5:COLOR 4,5,1 

798 FRINT'"LEBBRRBBRBBBBALKEN — DIAGRAMM 

802 PRINT"ERBIIM WELCHEN MODUS (FUER GRUESSE) SOLL 

S1lB PRINT"IEDAS DIAGRAMM ERSTELLT WERDEN 

822 INPUT"RWEINSABE VON IKi>m BIS IK" sE 

850 IF E<10ORE>4 THEN Z$="EINGABE FALSCH! ":GOSUB 1618:G0T0 800 

340 FURx- 3TOB: IF INTECCLCCNI /ARLEBI HB. DREI /EISZN THEN NEXT X:60T0 BB 

858 ZF="EERDIESER MODUS KANN MIT DEN EINGEGEBEN " 

B6U Z+=Z#+"KWERTEN NICHT DARGESTELLT WERDEN. BBEINGABE WIEDERHOLEN. 

970 GOSUB 1618:60T0 800 

888 IF B=1 THEN FaR 

898 INPUT"EBIABSTAND >>>"sFsF=f+4 

908 IF F<5 THEN Z#="EINGABE FALSCH! "HGOSUBL610: GOTOBFR 

F1D IFF#B>3BORF<LTHENZS="EINGABE ZU HOCH 'BITTE NEUE EINGABE. ":GOSUB 1410:60T0 8 

38 

928 H=1:FORI=1 TO B 

958 IF CiT)>=C(I+i) THEN NEXT:GOTD 958 

748 K=CIDD:CiD)=CkI+dd: CiI+1)=KeH=Zikt=D$ (I): DED=DSCIHID: DE(I+1)=KEINEXT 

958 IF H=2 THEN 9720 

Fa PRINT"IB"SCOLOR 2,1:C0LOR 4,6,1 

970 Y=INT (40/B)-1:FORZ=1TOB: X(Z) = =INTL (EZ) /AH1OD) +B. SI#ESNEXT 

FBB CHAR 1,11,1,"BALKEN - DIABRAMM" 

9378 CHAR 1, 11,2,tanansnanenannunungn - 

1B00 Y=-F+1sFORZ= 1 TO B:yY=YıF:W=0 re ne, 

1210 CHAR1,Y,23," #7 "SCHAR1,Y,24, DE (2) 111@ CHAR1,Y,23," | BR": GOSUB1600 

102@ FORU=i TOABB:NEXT U 1128 IFX(Z)=STHEN1548 

1034 IF X(Z)=2 THEN 1548: GOTO 1828 1130 CHARI.Y.22."_run 

1240 CHARI,Y,22,"% az np ın 
ne 1148 CHAR1,Y,23," fl ":GOSUB1400 

1050 CHAR1,Y,23,"4=_":50SUB1&08 1158 IFXCZI=ATHEN1530 

10&8 IFX (ZI =1THEN1540 116@ CHARI ,Y,22, "4" 


19878 CHAR1,Y,22,"x_LH® " 1. 
" “ Hin 1174 CHAR1,Y,23," WI a": 505SUB1&20 
10858 CHAR1,Y,23,"5771 ":605UB1688 1188 IFX(ZI=STHEN1S40 





38 Gompufe mie 5/86 


programme 


CHAR1,Y222,",@® L" 1400 IFX({Z)= WB) +STHENL34D 
CHAR1,Y,25,” 44": 6D0SUB1608 1419 CHAR1,Y,22-W," En 
IFX(ZI=6THENISAD 1420 CHAR1,Y,25-W, "8": 2": G0SUB1400 
CHAR1,Y,22, "7a 1438 IFXtZ}=(W#B) +4THENL5AU 
CHAR1,Y,235, "Ir: GOSUBLSDRA 1448 CHAR1,Y,22-u, "m Lu 
IFX (Z)=7THEN1542 1453 CHAR1,Y,23-W, "Tr": G0OSUB14BG 
LI 113 ’ ’ r _ 
CHAR1,Y,22," tr} 1448 IFX(Z)=(W&8) +STHEN1SAB 
CHARI ,Y 23, "u 1" 1470 CHAR1,Y, 22-0," en" 
IFX{ZI=8THEN1548 1480 CHAR1,Y,235-W," ad" : GOSUBL1ONA 
FORW=ITOINTECKEZI/EI HL 1498 IFX{Z}3={W&8) +5 THEN1SA4B 
CHAR1 „Y 222-4, " Homme” 150A CHAR1,Y,22-A," erh" 
CHAR1,Y,235-W," | LM": GOSUB15B0 1518 CHAR1,Y,2S-W,"!  w":60SUB1&00 
IFX (Z)= (W#*8) THENLS4B | 1528 IFXCZI=(W*8)+7THEN1548 
CHAR1,Y,22-W,"X_LH" 1538 NEXT W 
CHAR1,Y,235-W, "Can 7": 50SUB1600 1548 CHAR1,Y,21=-W, "HI": PRINT KTZI/E"Z” 
„Y, , 2 NEXT Z 
FI 1559 GOSUB 1438 : FÜKE 239,8 
„Y,22-W,"lasr 155 PRINT"LEBHOLLEN SIE SRAPHIC IM ANDEREN" 
CHAR1, 1323-8," „*-":GOSUB16B2 1578 PRINT"REMUDUS SEHEN J/N" 
IFX(Z)=(W#B) +ZTHEN1548 1580 GETKEY X#:IF X#="N" THEN 748 
CHAR1,Y,22-W," Mn" 1598 IF X#="J" THEN 78B:sELSE 15809 
CHAR1,Y 23-W, "4 "2 60SUB160R 1684 FÜR U=1 TO 13:NEXT U:RETURN 


PRINT” ERRI" z#: SDUNDI ‚700,60: SDUND2,701,6@::FÜR Z=1 109 2222:NEXT:RETURN 
GOTO 1628 

IE PEEK{19EI<>&B THEN 1430: ELSE RETURN 

TRAP: 1648: IF PEEK(1255)<>75 THEN 1670 

Z$="ANGESPROCHENDES GERAET NICHT BANGESCHLOSSEN! " 
GOSUB 1619:60T0 240 

POKE 45284,27:C0L0R 2,1: PRINT" WRIEPROGRAMMFEHLER IN PROBRAMMZEILE" EL: HELP 
IF PEEK (1243) =30 THEN 438: 

DATA 255,0,0,0,8,0,08,8,16,168,176,176, 254,198,198,178 

DATA 56, &8, 68, 120, ia, iB2, 122, &0, 24, 66,978, 96, 96, 78,98,58 
DATA 120, 68, ab, 79,78,79,122, 12a, 124,66,64,76, 120, 96, 98,124 
DATA 124,66,64,76, 124, 96, 76,06, eu, 70,64, gb, 183,93,78, 68 
DATA 68, &8, 189, 108, 124,182,102, ım2, 48, 49,38,48,55,56,55,55 
DATA 49,56, 3,3455 67, 36,24,67, &D, 72, 112, 94,112, ima, 105 

DATA 84,64, 64, 76, 76,76, 112, 126, &8, 08, 84, 58,78,182,122,122 
DATA 98,92,74,78,997,77,97, 99, Sh, 68, 68, ım2, 102, 102, 102, 6 
DATA 124, 67,57, 99, 124, 9a, 76, 96, 56, 43,68,100,102,119,182,59 
DATA 17290,68,70, 102, 122, 124, 100, 99,40,46, 64, 124, 62,5,67, &2 
DATA 126,16,16,16,24,24,24,24,68 ‚O&,6h, 99,99,99,997, 64 

DATA 66, 6, 795; 99, 99, 104,40,16,65,66,979,978, 107, 117, 99, 67 
DATA 107, 102 „36, 24, 24,36,182, in2, 79,78 66,56, 24, i2,12,12 
DATA 126, 114, 4,8, 18, 32, 74, 126, Ga "32,32, 32,32,48,48,68 

BATA 12, is, 32, 124, 49, 114, 252, a, 69,4,4,4,4,.12,12,68 

DATA 9,9,4 ‚2,255, 2,4,8, B,1&, 32,64, 255, 44, 32, 1& 

DATA 0,0,2,0,2,0,80,2,16,16,24, 24, 2a, 74,0,24 

DATA 68, &8, 102, 102,0, 2,2,0, 102, ım2, 255, 102, 255,182,122,8 


"DATA 24,62,76& ‚co, 6,124,24,0,99,658,8,16,48, 02, 48,0 


DATA 60,182 ‚oB, 55, 1n3, 122 "63,0, 4,8, 24, 258,0,0,8,8 
DATA 8,16,32,32,32, 24,12, 2, iä,8, A, a, 4,24, a8, a 


ı DATA D,102,40, 255, 60, 102, 2,0,0, 16, 1i&, 126, 1&,16,4,80 


DATA 0,0,0,2,0,24,24,48, 2, Q, 2, 126, a, a, 0, a 

DATA 2,2,0,8,0,24, 24,0, a, Sr &, 12,24, a8, 76, 8 

DATA 56,68,68,72,102,102, ı1m2, 56,24,42,72,8,12,12,12 
DATA 59,192 „122, 4,8, 16, 62, 124,60, 102, 56,6, 6, 6,102 
DATA 24,40, 72, 724 127, 12,12,12,126,64, RL, i2a, 6,182, ‚60, a 
DATA 238,38,64,64, 108,78 34,28, 126, 122,2,4, 42 „ie, 48, 48 
DATA AU, 126, oz, 66, 60,78,78,60,69,66,64,62,6, 6, 102, £&0 
DATA U, a, 24,0,8, 24, Q,8, 2, 0,24,0, 2, 2a, 24, 48 
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1998 
za0a 


14,24,48,76,48,24,14,8,8,8,126,0,126,0,0,0 
112,24,12,6,12,24,112,0,60,182,6,12,24,0,24,8 


DATA 
DATA 


40 


2018 
2820 
20354 
2948 
2858 
2068 
2079 
ZBEB 
zu090 
2128 
zı18 
2128 
2158 
2140 
2158 
2140 
2178 
2108 
2178 
2208 
22108 
2228 
2238 
2240 
2258 
2268 
2278 
22898 
2298 
25B8 
2510 
2328 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 8 
DATA 0 
Data 8 
DATA D, 
DATA 8 
DATA 1 

4, 

1 


Pu 
uhSsssußes! 
[Be Bo v1 


4, 
2,4, 
1,2,4 
Q,1,2, 
„2,0,1 
‚B,d, 


»SSSS5-1 
[1 
EIN ET 
L 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Fr 


Q,0, 
55,0,0,0, 
0,25 
2,2 
‚2,8 
‚2,8 


‚2,2 
„B,2 


) 

7 
= 
Q, 


„2 + 


’ 
’ 
Y 
L 


2) oO 
2 0.) 
D, = 
DATA 8, a 
[) 2, 
2 [1 
[) 1) 0, 
[) 55 2, 


129,130,132, 136,144, 16D, 
0,255,3.5, 9,17,33,65, ‚0,255,3,5,9,17.33 
0,2,0,255,3,5,9,17,8,0,0,0,255,.3.5.7 
0,255,3,5,80,8, 
0,2,0,0,255, 
2,0,0,0,255, 
‚255,0,0,255,2, 
@,0,255,255, 
@ ‚9.255, a 
y 


‚8,0,0,255, 
‚255,2, „2, 
2 2,255 
„255 
„255 


3 
0,0,0,0,255 
55,2,8,8 
0,255,0 
‚8,8,2 
5,0,0 
‚2,2,0 
2,2,0 


u, 
2,2 
5,0 
2,0 


Y 


F 


2 
2,2 
0,0,2, 
a,0, 
2,0,0, 
‚2,0,0,0, 
‚8,0,9,25 
‚„2,255,8, 


v-—; 


65,129, 129,129.129, 129,129, 129,33,65,129, 129,129, 129,129,127 
17,33,65,129, 129, 129,129, 129,9, 17,33,65,129,129, 129,129 
5,9,17, 33, 65,129,129,129,3,5,9,17,33,65,1297,129 
60,66, 153,161, 161, 153, 66,60, iss, 189, 189, 185,137,137,137,1895 
238,40, 40,238,34,34 ‚34,238, 128,128,128, 128, 128,128, 128,255 
255,128,128, 128, 128,128, 129,128,120, 128,120, 128,128,128, 128,128 
1,2,4,8,16, 32, &4, 128, 0,1,2,4,8,16, 32,64 
8,15,32, 64,255, 128, 128, 129,128,128,128 
8,16,32, 64,255, 128,128, 128,128, 128 
‚8,16,32,64, 255, 128,128,128, 128 
4,8,16,32,64,255,128,128,128 
‚2,4,8,16,32,64,255,128,128 
0,1,2,4,8,16,32,64,255,128 
‚16,32,64,255,2,4,8,16, 32,64, 255,255 
6,32, 64,255, 128,255 ‚8,16,32,44,255,128,1298,255 
6,32,64, 255,128,128,128,255,32, 64,255, 128,128,128, 129,255 
64,255, 128,128, 128, 128, 129, 255, 255,128,128,128,128,128,128,255 
129,129,129, 129,129, 129,129,129,255,2, 4,8,16,32,64,128 
3,6,12,24,48, 96,192,128,5,18, 20,42,00,160, 192,129 
9,18, 36,72,144, 160, 192, 128,17, 34,68,136, 144,162,192,128 
33, 66,132, 136,144, 160, 192, 128,65, 130, 132,136, 144,160,192,128 
192, 128,255, 3,5,9,17, 33,65,129 


orekmon It! Korrekturen I! 


Ergänzung zum Programm 


„HERD“ aus Heft 3/86 


Beim Abdruck des Programms „HERO*“ 
aus Heft 3/86 ist uns leider ein kleines 
Mißgeschick unterlaufen. So wie das Pro- 
gramm veröffentlicht wurde, war es nur in 
Verbindung mit einer Diskettenstation 
lauffähig. Damit aber auch die Kassetten- 
benutzer das Programm verwenden kön- 
nen, müssen folgende Änderungen vorge- 
nommen werden: 

Teit 1 Zeile 110 statt... . POKE 891+x,.... 
muß es lauten .. POKE 1015+x, ... 
In Teil 2 Zeile 3002 muß der SYS-Befehl 
geändert werden. Bitte geben Sie statt SYS 
891 SYS 1015 ein. Nach diesen kleinen An- 


derungen müßte das Programm bei feh- 
ierfreier Eingabe funktionieren. 


„.. und noch eine Ergänzung 
aus Heft 4/86 


Bei dem Programm „Memory Free“ müs- 


sen Sie nach POKE TH ein Kommaundein 
großes A eingeben. Die richtige Zeile lau- 
tet dann, ... POKE TH, A 


Hinweis: 

Noch immer erreicht unseine Vielzahl von 
Leserbriefen, die auf Eingabeprobleme ver- 
öffentlichter Programme beruhen und in 
denen die Leser um Hilfestellung bitten. 
Herr Rainer Harhoff hat uns eine Mittei- 
lung zukommen lassen, in der er genau er- 
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klärt, wie Sie die Fehlersuche bei abge- 
stürzten Programmen aufnehmen können. 


Halten Sie nach dem Absturz eines Pro- 
gramms die RUN-STOP-Taste gedrückt 
und betätigen Sie nun die RESET-Taste. 
Jetzt zuerst wieder die RESET-Taste und 
dann die RUN-STOP-Taste loslassen. Sie 
befinden sich nun im Monitor. Geben Sie 
jetzt X und RETURN ein, nun können Sie 
das Programm mit dem Befehl LIST auf- 
listen oder mit dem Befehl HELP die feh- 
lerhafte Zeile sichtbar machen. 


Wenn Sie diesen Rat befolgen, müßten Sie 
eigentlich sehr schneli auf die fehlerhaften 
Zeilen in Ihrem Programm stoßen und 
können die entsprechende Korrektur dann 
vornehmen. 
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PHA Push Akkumulator into Stack (Bringe Akkumulatar auf den Stapel) 


Dieser Befehl speichert den Inhalt des Statusregisters (P) auf die Spitze des Stapels. Der Stapelzeiger SP wird automatisch um 
1 dekrementiert. Es werden keine anderen Register oder Status beeinflußt. Beachten Sie, daß das Statusregister in den Stapel gespei- 
chert wird, bevor der Stapelzeiger dekrementiert wird. 


Hex Adressierung Bytes Syntax 76543210 
08 impliziert 1 PHP NV BDIZGC 
nicht beeinflußt 


Der PHP-Befehl wird im allgemeinen zur Aufbewahrung des Inhalts des Statusregisters vor dem Aufrufen eines Unterprogrammes 
- verwendet. Beachten Sie, daß PHP nicht erforderlich ist, bevor eine Unterbrechung bedient wird, da die Unterbrechungs-Reaktion 

{auf IRQ oder NMi) und der BRK-Befehl automatisch den Inhalt des Statusregisters an der Spitze des Stapels aufbewahren. 
ee 


PLA Pull contents_of Accumulater from Stack (Hole Inhalt des Akkumulators vom Stapel) 





. Dieser Befehl inkrementiert den Stapelzeiger um 1 und lädt dann den Akkumulator von der Spitze desStapels. Beachten Sie, daß der 
. Stapelanzeiger vor dem Laden des Akkumulators inkrementiert wird. 


Hex Adressioung Bye Sn 76543210 
68 impliziert - 1 PLA NV BDIZC 
nicht beeinflußt 


Der PLA-Befehl wird am Häufigsten zur Zurückspeicherung des Akkumulator-Inhaftes verwand, der auf den Stapel gerettet wurde, 
z.B. nach der Bedienung einer Unterbrechung oder nach dem Abschluß eines Unterprogrammes. 


PLP Puli Contens of Status Register (P) from Stack (Hole Inhalt des Statusregisters (P)_ vom Stapel) 





Dies ist das Gegenstück zum PHP-Befehl. Der Stapelzeiger wird um 1 erhöht und das abgelegte Statusregister wieder vom Stack ge- 
holt. Flags werden aus verständlichen Gründen nicht beeinflußt. 


Hex Adressierung Bytes Syntax 76543210 


EN. 7 u BE TEE LIE: 
nicht beeinflußt 





Der PLP-Befehi wird’sehr oft als Abschtuß eines Unterprogrammes verwand, um den Urzustand der Flags wieder herzustellen. Be- 
achten Sie, daß der PLP nach Abschluß eines Interrupt-Unterprogrammes nicht verwendet wird, da der Befehl ATI selbständig die 
Flags zurücksetzt. 


ROL _Rotate one Bit LEFT {Rotiere Akkumulatar oder Speicher durch den Übertrag_nach Finks) 


Dieser Befehl rotiert den Akkumulator oder das gewählte Speicherbyte durch den Übertrag um ein Bit nach links. Durch diese Ver- 
“ schiebung wird Bit 1 über das C-Flag nach Bit 7 übergeben. Dieser Befehl findet in erster Linie bei arithmetischen Aufgaben seine 
Anwendung, auf die wir später noch etwas genauer eingehen werden. 
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kurs 


Hex Adressierung Bytes Syntax 
2A Impliziert 1 ROL 
26 Nuli-Seite (direkt) 2 ROL addr 16543210 
2E Absolut (direkt) 3 ROL addr NV BDIZC 
36 Null-Seite indiziert mit X 2 ROL addrx ; infi 

3 ROL addrX went beeinflußt 


3E Absolut indiziert mit X 


Bei ROL rückt das Carry in das unterste Bit. Jedes Bit rückt um eine Position nach links. Das oberste Bit wird zum neuen Carry und 
dient dazu mehrere Bytes miteinander zu verknüpfen. Auf diese Weise lassen sich beispielsweise Multiplikations-Routinen entwik- 
keln. 





ROR Rotate One Bit Right (Rotiere Akkumulator oder Speicher durch den Übertrag nach rechts) 


Dieser Befehl, stelit das Gegenstück zum ROL dar. Er rotiert den Inhalt des Akkumulators durch den Übertragungsstatus um ein Bit 
nach rechts. Der ROR gestattet vier Arten der Adressierung des Datenspeichers. 





| Hex Adressierung Bytes Syntax 
6A Impliziert 2 ROL 76543210 
6E Absolut (direkt) 3 ROL addr NV BDIZC 
76 Null-Seite indiziert mit X 2 ROL addrx en 
7E Absolut indiziert mit X 3 ROL addı;x nicht beeinflußt 


42 





Lumen 


ATI Return from Interrupt (Kehre von Unterpregramm zurück) 


Wie wir schon in einem Teil dieses Kurses beschrieben haben, existieren beim Prozessor 6510:NMIIRQ und BRKdrei Arten vonUnter- 
brechungen. Taucht ein Unterbrechungssignal auf, vollendet der Prozessor den Befehl, den er gerade bearbeitet. Dann nimmter den 
Inhalt des Registers PC (des Befehlszählers, der die Adresse des nächsten Befehls enthält) und legt ihn auf den Stapel ab; dasobere | 
Byte zuerst. Zum Schluß legt er das Statusregister auf den Stapel, Dabei handeltes sich um insgesamt drei Bytes, die auf den Stapel 
wandern. Trifft der Prozessor in einer Interrupt-Routine auf den RTI-Befehi, so werden das Statusregister und die PC Adresse vom Sta- 
pe! geholt. Zu beachten ist, daß es sich bei der Adresse im Stapel um die wahre Rückkehradresse handelt, im Unterschied zu JSR/ 
RTS, bei denen die Rückkehradressen minus Eins gespeichert werden. Beim C-64 wird die IRQ-Routine etwa sechzigmal pro Sekun- 
de aufgerufen. Diese Routine ist unter anderen Umständen dafür verantwortlich, daß die Tastatur abgefragt und die Uhr weiter- 
gestellt wird. 

Wir wollen später die Unterbrechungsroutine behandeln und in unserem eigenen Programm anwenden. 











Hex Adressierung Bytes Syntax 76543210 
0 impliziert — { mM - NV BDIZC 


nicht beeinflußt 


Literatur: 
6502 Microcomputer-Programmierung, : ! Becker, Englisch, Gerits, Reverenz Map, F. Brall 
Peter Heuer, Hofacker Verlag | Data-Becker Buch Butterfield’s Lehrbuch, 
6502 Programmierung in Assembler, | 6502/6502, Christian Persson, d. Butterfield, Hanser-Verlag 
Lance A. Leventhal Heinz Heise Verlag . = 


| 64 Intern, Angershausen, 
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Zerstören Sie den außerirdischen Kommandokreuzer und 
bewahren Sie dadurch die Erde vor der Versklavung 


Der Radarüberwachungsdienst der Welt- 
raumbehörde hat nicht zu identizifierende 
Flugobjekte entdeckt. Sofort nach Fest- 
stellung des Einsatzgebietes wird das mo- 
bile Einsatzkommando alarmiert, und in 
größter Eile begeben Sie sich als Kom- 
mandant- Ihres Schneider-Raumschiffes 
auf die gefährliche Mission, die geheim- 
nisvollen Flugobjekte zu stoppen. 

Nach einer mühevollen und zeitrauben- 
den Reise durch die Galaxie gelingt es Ih- 
nen endlich, die Flugobjekte zu stellen. 
Diese greifen sofort an, also bleibt ihnen 


nur die Möglichkeit, mit Hilfe Ihrer Laser- 
kanone die Gegner zu eliminieren. Fallses 
Ihnen gelingt, 5 dieser Angreifer zu ver- 
nichten, gelangen Sie in die nächste Zeit- 
ebene. Nach dem Erreichen der fünften 
Zeitebene sehen Sie sich plötzlich einem 
fremden Kommandokreuzer gegenüber, 
der sich in scheinbar feindlicher Absicht 
bedrohlich nähert. Durch das Zünden ei- 
ner an Bord befindlichen Bombe können 
Sie auch diesen Widersacher vernichten. 


‘Dieses Spiel überzeugt vor allem durch 


seine hervorragende 3-D-Grafik 


Die Steuerung erfolgt über die Tastatur: 


. = Iinks a = al 

= rechts z=-ı» 

{ = feuer b = Bombe zünden 
Eingabehinweise: 


Nach Eingabe des Listings wird 
das Programm mit „RUN" gestar- 
tet. Man sollte darauf achten, daß 
das Titelbild vollständig gezeich- 
net im Speicher abgelegt wird. 
Anderenfalls erhältman einen un- 
vollständigen Hintergrund. 


i O8 BREAK G0OS5UB 363 29 "um Maschinenprogramm zum Abs 
2 09N ERROR G0TD 3653 peichern des Bildschirms 

= IF PEEK(A40OBZD)=1 THEN 41 34 MEMORY &4E1F:RESTORE 35 
TEEN 31 MODE 1 

Fe * 32 FOR a=40839 TOD ABBLI:READ n:PÜKE a,ns 
&' * STAR TANK it) BE * NEXT a 

IT'.% * 33 FOR a=480859 TO 4RB6l:RERb n:FÜOKE a,n: 
ad‘ %* by PETER DANES & * NEXT a 

9°" #* ANDREAS GOEHN * 54 FOR a=41B99 TO 41B14:READ n:POKE a,n: 
1a’ * * NEXT a 

ii’ m FAN-SOFT----— * 35 DATA 21, ff, ,%3f,%11,&00,:00,%21,%20, 
ir?’ * %* de „ed ,&b9,%&c7 

13 RHEIN 36 DATA SB1 ,tf,%37,511,%20,%4e,%21,300, 
14 &cQ,%ed,&bd,&:cr 

153 '—emmm—n- Symbaldefinierung 37 DATA Al, Krf, Kit, %11, OU, Sch, 21 „E20, 
16 SYMBOL AFTER 274 &de ‚Zed,%bO,&cd, db „Sbb ,&c?7 

17 SYMBOL 225,28,226,162,162,226,156,128 | 39 S0SUB 50 

‚328 39 erm—— 

18 SYMBOL 225,56, 71,69,69,71,57 1,1 49 DIM score(4) ,name$(4) „text#(5) 

19 SYMBOL 277,1,1,1,3,131,131,131,134 41 g=9. 2:zuen=13,.5:zusc=14:hyp=9: punkte= 
20 SYMEOL 228,1728,178,128,192,193,195,19 ıhy=8@:zuen1=®8 

3,97 42 MODE 1:CALL 42000: BORDER 13: INK 2,24: 
21 SYMBOL ?29,134,252,252,135,134,134,6, | INK 3,8:SPEED INK 19,198 


a 43 rx=320:ry=200: s5x=320: sy=160: f1=0:bo=1 


22 SYMBOL 230,97 ,65,63,225,97,77,96,8 BAR: zubo=@:bonus=d 
>23 SYMBOL 231,24,126,153,195,195,153,126 | 44 TAGODFF 
„24 45 WINDOW#1,7,33,6,24 
24 SYMBOL 232,192,192,224,252,112,112,72 | 46 PAPER#1,D:PEN#1,1 
‚68 47 WINDOW#2,7,7,15,15 
25 SYMBOL 233,3,3,7,63,14,14,19,34 48 FAPER#2,U:PEN#2,8 
26 SYMBOL 234,255,128,159,226,226,159,12 | 47 BOTH 73 
8,255 SE "mem Umrandung 
27 SYMBOL 235,255,1,249,71,71,249,1,255 | 51 PLOT 94,520,1 
28 SYMBOL 236,126,175,165,153,153,165,19 | 52 DRAW 94,14 
5,126 55 DRAW 528,14 
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54 DRAW 528,320 
3 DRAW 94,328 
aa 7m Hypersprung Anzeigen 

57 FOR a=9 TO 21 STEPF 4 

393 LOCATE 37,8 

57 PRINT CHR$ (ZU CHRE (CZB7ICHRS CIEICHRE 
8} CHRF {BI CHRF (27) CHRE (207) 

42 NEXT a 

&l "7 ----- Anzeige 1 

42 PLOT 15,48: DRAW 15,272:DRAW 32,272:DR 
AW 32,49: DRAW 15,48 

&3 LOCATE 2,23: PRINT"S" 

64 "eumuunon Anzeige 2 

65 FLBT 47,49: DRAW 47,272: DRAW 64,272:DR 
AR 64,48: DRAW 47,48 

&4 LOCATE 4,23:PRINT"E" 

67 "un Bordcomputer 

aß FOR a=6 TO 34:PRINT CHR${227 "1"; 

67 LOLCATE a,„3:PRINT CHR# (154); 

7& LOCATE a,S5:FRINT CHR$ (15435 

71 NEXT:PRINT CHR$122)"0" 

72 LOCATE 5,3: PRINT CHR$(158) :LOCATE 5,4 
:PRINT CHR${149):LOEATE 5,5:PRINT CHR&(C1 
47) 

73 LOCATE 35,3:PRINT EHR$ (156) :LOCATE 35 
‚4:PRINF CHRF{149N : LOCATE 355,5:PRINT CHR 
#115% 

74 on Firmensymbol 

75 DEE 

76 FOR a=9d TO 354 

77 PLOT 328+75#51IN(a) „228+32. 58020512) ,1 
7a PLOT 328+50#5IN (a) „289r25#51IN (a) +SödsC 
05ta) 
77 PLOT 
COS ta) 
88 NEXT 
81 TAG . 
82 FLOT 288,21&:PRINT "FAN-"z3 
83 PLOT 288,220: PRINT "SOFT"; 
94 TAGOFF 

85 LGECATE 17,197: PRINT 
17,17: PRINT CHR& (227 ” 


322+58*5INta) „ZBO+25%#SINt-a) +50%* 


"sresents":LOCATE 
III. "CHR# (22) 
BA LOCATE 16,22:FRINT "STAR TANK" 

87 PLOT 234,48:DRAW 388,68: DRAW 389,44:D 
RAW 234,44: DRAW 234,68 

88 PLOT 225,76:DRAW 394,764:DRAW 396,36:D 
RAW 226,36: DRAW 226,76 

87 LUOCATE 8,7:PRINT CHR&(154)"by Feter D 
anes &"ELOCATE 12,8:PRINT "Andreas Goehn 


EU em Abspeichern des bildes 
71 CALL 48050 

92 RETURN 

73 7-1 Abfragen 

74 TABOFF 


95 SFEED EEY 18,18 
F& LOEATE 7,4: PRINT "Erklaerung i/n" 
77 a#=INKEYF 


7a IF a$="" THEN 97 ELSE 997 
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77 al$=LOWERF{aF}s IF al$="n" THEN 100 EL 
SE IF aif="j" THEN GOSUB 214 ELSE 97 
188 LOCATE 7,4: PRINT " 


1281 LOCATE 7,4:PRINT "Highscore Tabelle 
äi/n" 


122 a$=INnkEY£ 

103 IF af="" THEN 107 ELSE 104 

104 Aal$=LOWERF (af): IF alfe"n" THEN 185 E 
LSE IF alft="j" THEN S0SUB 232 ELSE 1972 


135 LOLATE 7,4:FRINT " 
„ 


185 LOCATE 7,4: INFUT "Schwierigkeitsgrad 
1-5 =" schwierig 

187 IF schwierig<i OR schwierig>3 THEN 4 
1 ELSE 198 

188 IF schwierig=1 THEN schwierig=1.5:s5c 

hwierigl=3 ELSE IF schwierig=2 THEN sch 

wierig=1:schwierigi=3 ELSE IF schwierig®= 

5 THEN schwierig=8.5:schwierigi=2 

187 LOCATE 7,4: PRINT " 


110 LOEATE 7,4:FRINT "Name B Buchstaben 
11i FOR a=1 TO 98 

i12 LOCATE Z6+a, 4: nams=INKEYF 

113 IF namt="" THEN 112 ELSE 114 

114 

115 spieier#=spielert+nam# 

115 LOCATE Zöra,4: PRINT nams 

117 NEXT a 

118 LOCATE 7,4: PRINT " 

1197 Spielbegin 

1298 ELS#i1 

123 SPEED EEY 1,2 

122 LOCATE 16,14: PRINT "FIGHT '" 
123 FOR k=1 TD 9:FOR n=&8 TOD 117 STEP IN 


T{RNDC1)#119+3: SOUND 1,n,2,15:NEXT n,kıF 
OR k=1 TO 9: FOR n=4B TO 117 STEP INT(RND 
(13#11>+3:5SDUND 1,n,2,15:NEXT n,ksFOR k= 
1 TO 9:FOR n=4B TO 119 STEP INT(RND(HI#L 
1?+35:5Q0UND 1,n,2,15:NEXT n,k:SOUND 1,117 
‚23,0,4 

124 LOCATE 16,14:PRINT " a 
125 Tem Hypersprunganzeige ausfu 
ellen , 

126 FOR a=7 TO 21 STEP 4 

127 LOCATE 37,4 

128 PRINT CHR& (Z27ICHRS$ (228) CHRE (1) CHRE 
{BI CHRF BI CHRE (ZZII CHRE (230) 

127 NEXT 

138 °---- -rm—— 
AUFFUELLEN 

151 FOR a=2Z 70 7 STEP -4.5 

132 LOEATE 2,a:ıPRINT CHR$ (1453) 

1335 LOEATE 4,a: PRINT CHR# (143) 

134 NEXT . 

155 LOCATE 2,7: FRINT CHRF (1A) :LOCATE 4, 
Q9=:FRINT CHR# (1453) 


ENERGIE % SCHILDENERGIE 


B/öß 


aD ee, m 


\ 





RiAR 


134 "= Origin festlegen 
137 ORIGIN 0,2,797,520,18,147 
159 en Hintergrund 


137 LOCATE 7,4: FRINT"SCORE ="3purkte 

1423 OGRIGIN 9,0,99,522,18,149 

141 TAG 

142 x=2RR: FOR a=1 TO SU: PLOT a,28i-x,2:D 

RAWR 648,D:x=x/1.1 

143 NEXT 

144 x=170: FOR a=1 TD &0:FLOT 4,201-x,3:D 

RAUR 648 ,0:x=k/1.l 

145 NEXT 

145 FLOT 95,148,1:DRäu 527,147 

147 FÜR a=-388 TO iBa2 STEP 30 

148 FLOT a,20,1:DRAW 372,528 

147 NEXT 

159 INK 7,74,8: INK 3,0,74 

151 PLOT 978,17,1:5DRAW 96,319: PLOT 527,17 

:DRAW 527,317 

152 um —iuu. Strahler setzen 

153 TAGOFF 

154 PRINT CHR#(ZEI "1": LOCATE 7,186: PRINF 

CHR (22: LOCATE 35,14: FRINT CHRE(2ZS) ı P 

RINT EHRF {22 "GB" 

155 TAG: ORISIN B,8,185,517,152,315 

156 "= Tastaturabfrage 

157 TAG:f1=8 

158 FLOT sx,sy:FRINT" "5 

157 IF INKEY(A2}=9 THEN sk=sk+tiä 

158 IF INKEY(<S1)=Z THEN sk=5sx-1& 

151 IF INEEY(7D)=8 THEN syssy-1ä 

152 IF INKEY(AFPI=B THEN sy=sy+1&4 

163 PLOT sk ,5Yy,1:PRINT CHRF(Z3I1} 3 

164 IF INKEYÜS@I=Z THEN 145 ELSE 175 

1453 FLOT 112, 150,15DRAW sk+td,sy-S:ıDRAW 5 
12,189: SOUND 1,68,5,15,2,1:PLOT 112,160, 

2: DRAW su+B „sy-8: DRAW s12,18 

1&6 zueni=zueni+1:1IF zueni=schwierigi TH 

EN 157 ELSE 174 

147 °---- Energie verringern 

149 TAGOFF 

157 zuen=zuen-8.5 

1782 IF INT(zuen)=zuen 'THEN LGEATE 4,INTt 

22-(zuen)}:PRINT CHR#(1405 ELSE LÜCATE 4 
„INT{22-tzuen?)}:sFRINT CHR#11728) 

171 zuenti=8 

172 IF zuen=2 THEN GOTO 387 

173 TAG 

174 IF rx>sx AND raz<sx+14 AND ry<isy AND 

ry>syrlö THEN 258 

173 "nn Raumschiff Zeichnen % Be 

weger 

17& PLOT rx+tg#2,ryrg#2,0: DRAW ee 

ry+tirg#2) 

177 PLOT rx+ti-g#3), ry+g#2:DRAW PatgeZ,ry 

+i-9#2) 

178 g=zg+®.?2#gq 

179 mn Raumschiff zu nah 

1aa IF g>28 THEN g=90.2:FOR k=A TO 24: INK 
2,k:50UND 1,70+k,1,15:NEXT: INK 8B,8:60T0 
iB1l:ELSE 198 


programme 


181 TAGOFF 


182 IF INT(zusc’d=zusc THEN LOCATE 2,INT( 
-tzusc}}z PRINT CHR#(148) ELSE LOCATE 2 

„INT(23-(zusc))3sPRINT CHR#$ (128) 

183 RX=INT {RND#414+195} 

184 RY=INT{RND#+155+150) 

185 TAG 

1854 zuscHzusce-4.5 

187 IF zusc=d THEN GOTO 387 ELSE GSTO 25 

= x 

188 rx1=INT {RND#3) —1 

1897 rx1=INT iRNDHSI-1 

178 IF rxi=8 THEN 1353 

191 rx=erx+3#rx1 

172 IF rx<158@ THEN r4=150 

193 ry1=INT (RND*23 -1 


174 IF ryi=B THEN 193 
195 ryery+3#ryl 
194 IF ry<i5S@ THEN ry=150 


197 PLOT rx#+g#3,ry+g#2,1:DRAN ra+t7g#3}, 
ry+(-g*2) 

178 PLOT mat ng#3) wry+tgtZrDRäl rckr+g#i,ry 
+ (-g#2) 


1737 rs=INT ({RND+F): IF rs{FZ THEN GOTO 155 
za " 


=Ri rxZ= INT{RND#414+105) 
2a: ryZ=INT(RND*165+150) 
zB 770777. Treffer 


=04 TAGOFF 
zu5 IF INT (zusc)=zusc THEN LOCATE ?,INTt 
23-(zusc}))sFRINT CHRF(14M) ELSE LOECATE Z 
„INT{IZE-(zusce) 3: FRINT CHR# (128) 
ZO6 TAB 
87 zusc=szusc-29.5 
288 IF zusc=d THEN 307 
207 PLOT rs ,ry,1:DRÄW rxZ,ry2 
zi8 SOUND 1,68,5,15,2,1 
211 FLOT rx,‚ry,„@:DRAW rx2,ryZ 
212 INK 8,26:FOR a=0 TO i@:NEXT a:INK 9, 
[ru] - 
213 GOTO 156 
214 "on Erklaerung & Laufschrift 
215 RESTORE 22& 
216 FÜR ant=ı TO 5 
217 READ text#tant) 
218 tert$lant)=" 
"+text#lant)t+" " 
217 k=1 
228 LOCATE &,4:FRINT MIDE (text#lant) ,k,2 
7) 
221 FOR 1t=1 TOD SB: NEAT It 
222 kektl 
223 d$=INKEYF$: IF ds="" THEN 224 ELSE 225 
224 IF k=LENitext#(ant)} THEN NEXT antı:E 
LSE 228 
2235 LOCATE 4,4: PRINT " 


7& DATA "Ihre Aufgabe ist es einen auss 
erirdischen Kommandakreuzer zu zerstoere 
n. Boch dieser ist nicht so leicht zu be 
siegen, da er Ihnen seine gesammten Raum 


Mamnıba möb 


45 


\ 


Programme 


Jaeger entgegen schickt.' 

227 DATA "Versuchen Sie nun mit Ihren La 

serkanonen die Angreifer zu zerstoeren, 

um am; Ende Ihrer Mission den kreuzer, du 

rch das Zuenden einer Bombe zu elemenier 

en. mit wuerden Sie die Erde vor der V 

ersklavung retten," 

228 DATA "Da Sie mit sehr hoher Geschwin 

digkeit fliegen, geraten Sie in die Zeit 

ebenen, das koennen Sie daran sehen dass 
Sie ueber die Dimensionsgitter fliegen. 

LL3 . 

. DATA "Wenn Sie alle Ausserirdischen 

siner Zeitebene beseitigt haben so wi 

rd automatisch ein Hypersprungmator akti 
viert. Sie besitzen 4 dieser Motoren, vo 
n denen Sie nach jedem Hypersprung einen 
verlieren." 

232 DATA "gespielt wird mit den Tasten 
“„=links \=srechts /=fire asauf z= 
ab b=Bombe zuenden =---- VIEL GLUECK 
nn I 

231 RETURN 

232 en Highscore Tabelle 

2533 ECL5#1: TAGOFF 

234 t=B: IF punkteiscore(4} THEN 743 

235 IF punkteiscore (3 THEN sceoret(4)=pun 
kte:name$(4)=spieler#:6070 743 

236 IF punkteiscore (2) THEN t=1:5070 239 

237 IF punkteiscoreii1} THEN t=?:601T0 739 
238 IF punkteiscore (8) THEN t=3 ELSE t=4 
237 FOR i=1 TO t . 

248 score (5-i)=score (4-i ) ıname$ (5-1 )=nam 
e#(4-i) 

241 NEXT i 

242 score(4-t)=punkte:namet (4- -t)=spieler 
E 

243 LOCATE#1,2,2:PRINT#1,"SCORE =: "spunkt 

e 

244 LOCATE#1,2,5°PRINT#1,”"Hall of Fame" 

243 LOCATE#1,2,9:PRINT#1 ,STRINGS (&12, "- 

3 

245 LOCATE#1,2,12:FOR i=8 ro “ 

247 LOCATE#1,2,11+1:PRINT#1, "irizLüc 

ATE#1,17, IALEPRINTHL Score li): LOCATE#1, 

7, 1141: PRINT#L, name# (i)} 

248 NEXT i 

247 LECATE 15,22:PRINT EHRE (24) "Press EN 

TER"CHR$ (24) 

258 INPUT#2,"";a$ 

251 CLS#1 

232 spieler$="" 

233 RETURN 

D54 uno Explosion der Raumschiff 

e 

235 RX=INT (RND*414+105) 


"256 RY=INT (RND*155+159) 
257 GOTO 156 j 
258 "mom Explosion der Raumschiff 


e 
257 fi=2:72=3:FOR r=9 TO 188 STEPF 38 


ie Dr nn PERL]. 





=68 PLOT rx,ry,fi:DRAW rx+ (RND#1BG0+10) «C 
0Sir) ,ry+ (RND*SGO+190) #5INi{r) 

=651 PLOT rx,ry,f22DRAW rx+iRND#1DO+1D) *C 
081-7) ,‚ry+(RND#5B+10) #5SIN (-r) 

262 fO=sfZifzeflefiere 

263 SOUND 2,500,48,15,3,20,8 

264 NEXT 

265 FOR a=2 TO 10020: NEXT a 

266 FOR a=158 TO 330: PLOT 199,a,0: DRAW 5 
SB,„asNEXT a 

267 RX=INT (RND#*414+125)} 

2648 RY=INT {RND#1655+150) 


2697 "7007 - bei Treffer Energie des 
Schutzschirmes auffuellen 
270 TAGOFF 


271 zusc=zusc#schwierig: IF zuse>14 THEN 
zusc=i4 

272 e=INT (zusce)-1 

273 FOR qw=21 TO 21-e STEP +1 

274 LOCATE 2,qw+1l:PRINT CHR$ (143) 

2753 NEXT 

276 punkte=spunkte+INT (20#g) 

277 g9=0.2 

278 LOCATE 15,4:PRINT punkte 

2797 hyshy+tl:IF hy=5 THEN hy=B:G0SUB 291 


282 GOTO 156 

zul °--------- Naechste station 

282 IF hyp=4 THEN hyp=8:560T0 372 

2853 FOR a=i9 TO 1 STEF — 

254 SFEED INK a,a 

285 FOR aa=ß TO 5SOB: NEXT aa,a 

285 FOR a=1 TOD 2 

287 v=Q.1 

288 PLOT 320+v#3,2704v#3, 1: DRAW 3204v8-3 
»2704vV*3: DRAW S20+rvr-3,278+v%-3: DRAW 320 
+v8#3,270+0%-3: DRAW 320+v%3,270rV*3 

287 PLOT 320+v#3, 770+v*3,0: DRAW Z20+V4#-3 
=70+v%3:DRAW 320+v#-3,270+v*8-3:DRAW 370 
+tVv#3,270+v48-3:DRAW 220+v%3,270+V8*3 

298 vevrO, 1#v 

291 IF v<7Z THEN 788 

292 NEXT a 

293 FOR a=1 TO 18 

294 SPEED INK a,a 

275 FOR aa=9 TO SOR:NEXT aa,a 


296 TASOFF 
297 "en Bonus 
299 zubo=zuen: zubo>zubo#äf 


#97 banus=bo+tzubo: punkte=punkte+bonus:ılLO 
CATE 15,4:PRINT punkte: LOCATE 12,13:PRIN 
T "BONUS ="bonus 

>3ea@0 FOR a=i TO 1BD0OB: NEXT a 
Sei LDEATE 12,13:PRINT " 

Li 3 


392 bo=bo+lduo 

303 LOCATE 37,9+hyp#4 

a4 FRINT EHR$IZBSICHRE (2A CHRE (LB)CHRE 
{3 CHR$ (9) CHRE# CIB4) EHRH (795) 

S25 hyp=hyot+i 

304 RETURN 





zn 


72:DRAW 168,224:DRAW 192,192:DRAW 249,19 
= . 

329 DRAW 272,224:DRAW 352,224: DRAW 384,1 
92:DRAN 432,192:DRAW 464,224:DRAW 464,27 
2 

338 DRAW 432,304:DRAW 384 ,304:DRAW 352,2 
72:DRAW 272,272 

331 LOCATE 14,1@0:PRINT CHR$ (236) :LOCATE 
26,10: PRINT CHR# (236) 

332 LOCATE 17,10:PRINT CHR$ (234) sLOCATE 
22,1@:PRINT CHR$(189):LOCATE 21,18:PRINT 
EHR$ (235) 

333 LOCATE 18,12:PRINT CHR$ (232) : LOCATE 
22,12:PRINT CHRS$ (233) 

334 f=1l:ze=108 

335 #=NDOT(fF)zIF #>8 THEN PLOT 287,208,1 
ELSE PLOT 334,288,1 

336 DRAW 312,190 


‚Programme 


307 mm game over 337 SOUND 1,598,5,15,2,1 

349 TAGOFF 3538 IF INT(zusc’=zusc THEN LOCATE 2,INTt 
387 SPEED KEY 19,10 23-izusc})e PRINT CHR#(148) ELSE LOCATE 2 
310 FOR a=159 TD 330 „INT(23-(zusc)) PRINT CHR$ (128) 

311 PLOT 199,a,0:DRAW 550,a 339 zusc=zusc-A.5: IF zusc=ß OR zuen=@ TH 
312 NEXT a EN 387 ELSE 348 
313 texf="s# GAME QDVER ##":FRINT ECHRF (2A 342 IF INKEY (54) =@ THEN 344 ELSE ze=ze-l:- 
} :GOTO 341 

314 FOR as=1ı TO 15 341 IF f<ß THEN PLOT 287,288,8 ELSE PLOT 
315 SOUND 2,354,2,15 5354,208,0 

31& LOCATE 12+aa,13: PRINT MiD#+ttex#,aa,i 342 DRAW 312,188 

} : 3453 GOTO 355 

317 FOR a=1 TO 3RA: NEXT a,aa 344 °-—--------- Ende bei Zerstoerung vom 
318 LUOCATE 18,15:PRINT "Press ENTER"CHRE Kreuzer 

24) 345 cl=eiıc3=e3scdes 

517 INPUT#2,""sa# 345 punkte=punkte+1INT (zetzusc#zuen)+3002 
3208 GOSUB 352 347 LOCATE 15,4:PRINT " "spunkte 
321 GOTD 41 348 FOR v0 TO 72 

BET nn Kommandakreuzer 347 PLOT 312483, ,2484vr3,c: DRAW 312+v8—3 
323 TAGOFF „240rvV&#3: DRAW SI2+VRr-3,248+rVr-3: DRAW 312 
324 FOR a=1580 T0 5358 +83, 248+v%-3: DRAW 312+V#3, 24047083 

325 PLOT 120,3,8:DRAW S32d,a 3528 c=er-i:cl=cHre?ec3ic3-c 

Ss2&4 NEXT 3 351 NEXT 

327 PLOT 272,272,1 352 FÜR v=72 T0 8 STEP -1 

328 DRAW 749,304: DRAW 192,384: DRAW 168,2 | 333 PLOT 312+v#3,248+v85,B:DRAW 312+vV#-3 


„248+rvrS:DRAN 312+v8-3,248+V8-3: DRAW 312 
+43, 248+v#-3: DRAW 312+rV#3 ,248+v8J3 

354 NEXT 

355 FÜR a=158 TO 350:FLOT 1290,2,8: DRAW 5 
Ss@ß,„a:rNEXT a 

356 FOR a=sı TOD 20 

357 LOEATE 13,13: PRINT "5 "ECHR$ (24 "U"CH 
R$ 24)" P "'CHRFLIZH "ECHRF (ZI) RR O3o tim 
358 FOR aa=ı TO ZB0: NEXT aasLDEATE 13,13 
PRINT " " 

359 LGEATE 13,13:PRINT CHRE& (24) "S"CHR# (2 
43" DO "CHRELZA) "P"CHREF (24)" E "CHRE(ZA4T" 
R’CHRFIZAY" 1189 

362 FOR aa=ı1 TO sa@: NEXT aa:sLOCATE 13,13 
‘PRINT " 

361 NEXT a 

362 SOTD 307 

563 SPEED KEY 128,10 

364 END 


: as 14br 8743 219- 220: AlBSa 2u4: 12137 


’ n- 72 = ’ 
TEILEN. BUNMEN 73- 74 36399 147- 18: z7108 221- 292: 2596 ze m az 
un a I 1 149- 150: 5520 223- 224: asa0s 20-00: zvan 
5- &: 19297 77- 7er 78023 15:- 152: 54652 225- 2726 SB0SQ a 
F 79- 89: 32194 153- 154: 34036 227- 228: 67711 = 
7 8: 18738 — z 277- 230: AB148 SBS- 394: 20457 
[9-18 isvıs sı- B2: mass us Imen Mens? 325- 3@6: 13887 
21a Saum B5- 9: 21965 157 158: 17055 ai 282: 27698 3a7- zeu: 19425 
13-. 1A: 17578 B5- Ba: 49970 459- 150: 6AZan 2u3- 234: STZ04 ar sau: 1925 
15- des A556 87- 9: 1B5s00 161- 1825 6B96 Fe 311- 312: 14182 
17- 1& PER 89- 7: 1m7924 1435- dad: 43137 237- 238: 45277 313. Sıas a1aer 
19- 20: 50098 1-92: 27457 165- 1b6: 57595 237- 20: 55477 13 1a ame 
21- 22: #3633 93-  Mı 17952 167- 148: 44056 2ii- 282: 1799 Ss Se: Bros 
23- >39: ssH82 Fr 96: 25480 149- 179: AI754 243- 744: 40627 Sı7- sid 2775 
2i- 26: a70aS5 97- 98: 17615 171- 172: 20314 245- 246: Ze301 Sun zum anın 
37-20: 40497 A 5652 173- 1794: 8158 247- 249: S+17& Szı- 322: same 
29- 30: SSAra 1m1- 102: 34133 175- 17: 544797 249- 259: A208 Er Er ae 
S- 32: 7452 103- 184: 78112 177- 176: Tzmm zsi- 282: 10285 327- 320, 29205 
" 195- 106: 32027 179- 180: 41778 255- 2594 1182 # 
33- 34: 14B1& 255- 256: 32265 329- 330: 52989 
35- Sue TI62 sa?- ABM: 39552 3ei- 182: Z3468 Zu7- 28: 1855 Fsı- 387: 50055 
37- 30: 50468 ıB9- 11Bı SS712 1B3- 184: 92285 2u9- rer 333- 834: 58574 
111- 112: 29947 195- 1864: 20965 Ze: HA j 
37-20: Aasıra Bei- Zu2: 7124 335- 336: 10578 
113- 119: 10278 1B7- 180: 47219 © ’ 
a1- 42: 93739 109-198: 2era2 BEI- ud: 4455 337- 330: 27407 
a43- 48: 55282 115- 116: 38356 7 - 265- 266: 74510 339- 248: 118289 
ri 117- 118: SBd4 191- 192: 45630 66: 
35- 4b: 5987 767- Ze: 47265 341- 342: 29475 
119- 179: Z3081 i93- 1974: 29789 = 
47- #3: 5615 289- 279: 57350 343-3994: 27885 
[ izi- 122: 11574 195- 196: 45650 6 70: 
49-50: Z1476 bi 2rTI- 272: zoasa 345- 346: Baals 
Sı- 52: Sad4 12s- 124: 42546 97 1a: 2aBoLz S75- 7a: auza2 347- Jar 26632 
53- 34: 2110 125- 426: 32125 A Aa anesn 373. 26: 4u#bl 3a7- u 37719 
55- 56: szıaa 127- 128: 15946 j 277- 270: 23214 - 351- 352: 19833 
R 129- 130: 7976 ze3- 204: 16240 B: 2321 
57- 58: 12888 ae 206: 2 279- 2BB: 59582 353- 346: 59567 
39- 60: 10270 451- 132: ZEB2& 2 = 25 >ai- 202: BEBBh Fs5- Sie: asrıg 
Bi a2: ameaa 155- 134: 11378 zur 208: 32255 Fas- 2u0: 20173 3s57- 358: 49086 
u3- 842 20657 1357 156: 66919 zu Zas- Zua: 24094 37-368: T7206 
65-  Bb: 37619 137= 150: 55091 Fe = 052 2B7- 2094 19934 Ter- 362: 2W24 
87- 6b: asuze 1377 a0: SSs2a zisr Zi4: SLUB Zen: 3635- Sam 1632 
49- 7: 24372 1si- 192: 93261 215 Zi6z 30095 a 2 EL 
143- 144: 43197 217- zi8: sasıı : GESAHTCHECKSUNME: 15556 


E/AR PDarmrnnbr mib 


47 


AR 


bücher 


Was fehlt auf Ihrem 
Bücherbord? 


Ein erweitertes Handbuch 


Das vorliegende Buch bietet eine Zusam- 
menfassung aller wesentlichen Program- 
miertechniken in den Bereichen 

@ Gralik 

@® Musik 

@® Diskette 

@ Gasseite 

@® Joystick, Paddie, Lightpen, USER-Port etc. 


Es ist ausschließlich in BASIC gehalten, so 
daß außer grundlegenden Kenntnissen 
der Programmiersprache BASIC keine 
weiteren Kenntnisse vorausgesetzt wer- 
den. C-64 Benutzer, denen der Umgang 
mit binären und hexadezimalen Zahlen 
sowie der logischen Arithmetik nicht ge- 
läufig ist, finden in den Anhängen grund- 








Tips & Tricks für den C-16 


Wie bereits in unserer Sonderausgabe er- 
wähnt, stellen wir Ihnen ein neues Buch 
für den Commodore 16/116 vor, das sich 
mit den Tips & Tricks rund um dieses Sy- 
stem beschäftigt. 

Nachdem der C-16 ein Verkaufsgarant der 
großen Kaufhallen wurde, findet er auch 
immer mehr Beachtung bei den Verlagen 
und Softwarehäusern. Heute können wir 
Ihnen ein Buch aus dem Data-Becker- 
Haus vorstellen. 

Hier wird versprochen, wenn Sie kein Fut- 
ter mehr für ihren G-16/116 haben, dann 


kann Ihnen mit diesem Buch geholfen 
werden. 


Aus dem Inhalt: 

Spiele, Malprogramme, Laufschrift, Text- 
verarbeitung, Dateiverwaltung, Vokabel- 
trainer, Hardcopy, Merge, Shapeeditor, si- 
mulierter Direktmodus, der integrierte 
Monitor, Zeropage, Routinen des Betriebs- 
systems und des Basic-Interpreters. 

Wie Sie sehen, werden eine Vielzahl von 
Themen behandelt und erläutert. Dieses 
Buch gehört griffbereit neben Ihren Rech- 


Damm miren an tn 












legende Erklärungen. 

Das Buch kann als Arbeitsbuch im eigent- 
lichen Sinne genuizt werden, d. h.; man 
kann es Stück für Stück durcharbeiten 
oder aber wie ein Handbuch nutzen, daal- 
le Abschnitte weitestgehend in sich ge- 
schlossen sind. 


1985, 277 $., kart,, DM 36,- - 
ISBM 3-7785-1095-9 


Dr. Hüttig Verlag, Heidelberg 











ner, wenn Sie am Umgang mit dem G-16/ 
116 interessiert sind. 

Data-Becker, Düsseldorf, 

ISBN 3-89011-168-8, ca. 200 Seiten 

Preis DM 29,-- 





ENDgraen 


ran 








. des Schneider-Gomputers CPC 464, die 
geringe oder keine Erfahrungen mit Mi- 
krocomputern besitzen. Der Anfänger soll 
hier auf sehr einfache und schnelle Weise 
an den Gebrauch und den Umgang mit 
dem Computer gewöhnt werden. Dieses 


Buch versteht sich als eine Einführung in. 


die Datenverarbeitung für alle Anfänger, 
ohne daß diese eine Vielzahl von Fachbü- 
 thern oder Handbüchern lesen müssen. 
Hier wird in sehr leicht verständlichen Ka- 
piteln der GPC 464 und seine Zusatzgerä- 
te beschrieben und der Einsatz dokumen- 
tiert. Es hilft die Nachteile zu überbrücken, 
die meist die mitgelieferten Handbücher 
beim Anwender aufweisen. 

Der Aufbau ist übersichtlich und einfach 
gestaltet und führt Sie schnell und sicher 
durch das Buch. Die zahlreichen Doku- 


Dieses Buch richtet sich an die Benutzer. 





mentationen und Tabellen sind so gestal- 
tet, daß der Anfänger das nötige Grund- 
wissen auf einfache Art vermittelt be- 
kommt. 

Bis auf die Beschreibung der Disketten- 
station kann dieses Buch auch für die 
Schneider Computer GP& 664 und CPC 6128 
eingesetzt werden. 


Friedr. Vieweg & Sohn, 
Braunschweig/Wieshaden 
ISBN 3-528-04452-7, ca. 260 Seiten 





bitte beachten: 


Alle hier vorgestellten Bücher können 
nicht beim TRONIC-VERLAG bestellt wer- 
den, sondern müssen über den Buchhan- 
dei oder direkt beim jeweiligen Buch-Ver- 
lag bezogen werden. 


. Software-Schnell-Versand. 


C694 Kassette 


ACE - Air Combat Emulator... 38,90 
Back to the Future 
Basilidon Round. 

. Biade Runner... 


Bounder/Metabalis 
Critical Mass 

Desert Fox 

Dragon SKulleeesaeser 


Eepladins Fist., 


Fight Night . 
Fighting Narriorseeuensunuer 
Friday the 1theosunuunannne 
GOONiEScen 
EYFOSCOPEr aaessonerne un 
Hacker.auesa Kranunsunese .... 


“eundensnenn ....... 


Kyper Sports 
Impossible Mission 
Indiana Jones 


Kennedy Approach, . en 
Koronis Rift 


B/a6 


06% Kassette 


Little Computer People,. 
Lord of the Rings 
Mindshadowsaseouaenn ... 
Nightshade . 

PSI 5 Trading Company. , 
Raid on Bungeling Bay... 


Rock n Hrestleu.... ERTrT 
SCArabEUS nenn vuunnen 
Shadowfire 

Space Invasion 

Terrormol inOS220. 
Theatre Europa. 

Time Turrelerse 
Transformers... 
Urilimeseuuasne 

kho dares wins II 

Winter Games 

Yabba Dabba Doo 

Yie are Kung Fu 


Versandkosten bei Nachnahme 
2. Bei Vorrauszanlung 

per Bar“ oder Scheck keine 
weiteren Kosten, 


Goemnups mip 


06% Diskette 


Back to the Future 
Bomb Jack 
Bounder/Metabolisueesu. 45,90 
Desert Fox 50,90 
Dragon Skull 50,90 
53,90 
63,90 
58,90 
„. 53,90 
. 53,90 
Friday the 13th. 


GYFrOoSCOABssnsun en un enn 
Hardball 

Impossibte Mission 
Kennedy Approach 
Koronis Rift 

Kung Fu Master 

Little Computer People. 
Mail Order Monstersee.. 
Mindshadow 


Rock n Wrestlereeuee. .. 
Space Invasion... 
Theatre Europa... 
Time Tunne] 
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Programme 





Leider besitzt der CPC 464 keine Sprites, 
sodaß bei der Entwicklung von Spielen 
der Zeichensatz des Computers benutzt 
wird. Der CPC ist zwar in der Lage eigene 
Zeichen zu definieren, jedoch ist diese Ar- 
beit recht mühseelig und schreckt so 
manchen Programmierer ab. Das hier vor- 
gestellte Programm löst nun dieses Pro- 
blern. Es gestattet die gleichzeitige Defini- 
tion von 1 bis 4 Zeichen, dadurch können 
auch größere Figuren gezeichnet werden. 
Es können maximal 158 Zeichen definiert 
werden. Das Programm ist mit einem Pro- 
grammgenerator ausgestattet, der ein Un- 
terprogramm erzeugt, das in andere Pro- 
gramme eingebunden werden kann. 


“ Bedienung: 


Nach dem Start des Programmes er- 
scheint in der linken oberen Hälfte des 
Schirmes eine 16 mal 16 Punktmatrix mit 
biinkendem Cursor. Mit den Cursor-Tasten 
kann dieser an jede beliebige Stelle des 
„Fensters“ gebracht werden. Alles was in 
dieses Fenster gezeichnet wird erscheint 
in der rechte Hälfte des Bildschirmes in 
Originalgröße noch einmal. 


Folgende Tasten sind Funktionen zu- 
geordnet: 

COPY Punkt an Cursor-Posilion selzen 
SPACE Punkt an Cursor-Position löschen. 


CLR Gesamte Fenster löschen 


| Fenster invertieren 


R Fenster rechts rotieren 
Y Fenster um Y-Achse drehen 
Ä Fenster um XAchse drehen 


= Definieren 


Definieren: Hier ist zu bedenken, daß das 
Fenster aus 4 Zeichen besteht: 

1 Zeichen = links obere 8°8 Matrix 

2 Zeichen = rechts obere 8*8 Matrix 

3 Zeichen = links untere 8*8 Matrix 


| 4 Zeichen = rechts untere 8*8 Matrix 


Nach Betätigen der Taste “="erscheintdie 
Frage: ZEICHEN? Hier muß nun der ASCII 
Zeichen-Code (dezimat), welcher mitdem 
ersten Zeichen definiert werden soll, an- 
gegeben werden. Dieser muß größer als 
96 sein. Die Zeichen 2 bis 4 werden den 
folgenden Werten zugeordnet. 

Achtung: ist ein 8*8 Feld (Zeichen) nicht 
belegt, wird dieses ausgelassen. So ist 
es auch möglich,einzeine Zeichen zu defi- 


nieren! Die Definition ist beendet, wenn 


| der Cursor wieder erscheint, danach kön- 


nen weitere Zeichen definiert werden. 


0 ENDE 


Nach dieser Aufruf wi rd.der Designer ge- 
löscht und es steht das Unterprogramm 


| mit den entworfenen Zeichen im Speicher. 


Leider befinden sich noch zusätzlich über- 
flüssige DATA-Zeilen (nur Klammern) im 
Speicher, die Sie mit DELETE Kxooxx- lö- 
schen müssen. Als letzie Zeile fügen Sie 
hinzu: 

KXXXX DATA Hari 


Nun können Sie dieses Unterprogramm 
mit MERGE in alle Programme einbinden. 
Nach Abruf mit GOSUB 50000 stehen die : 
definierten Zeichen zur Verfügung. 


Eingahehinweis für Grafik-Designer: 

Ab der Zeile 51000 werden imListing fort- 
während die gleichen DATA-Zeilen einge- - 
geben. Die maximale Anzahl der definier- 
baren Zeichen richtet sich nach der An-: 
zahl dieser DATA-Zeilen. (DATA-ZEILEN = 


ZEICHEN / 2) 


1 REM Kur za PRINT" 1 = IMYERTIEREN" 

zZ REM + GRAFIE-BESIGNER # =45 FRINT" R = ROTIEREN” 

= REM * CDPYRIGHT Dy * za FRINT" Y = SPIEGELN Y-ächse" 
4 REM #* FRANKE ERÄALL * 2535 FRINT" x = SPIEGELN K-Achse” 
I REM z65B FRINT" DLR = LOESCHEN"; 

Fe - =z72 LOEATE ZB,18:FRINT"G = EnpE" 
id SYMBOL AFTER 97 SE aZeisyiel . 

i5 MEMIRY SRaan-1 #02 e&=INKEYFIIF et="" THEN 1000 
=9- SFEED KEY 18,5 495 SOUND 1,8,5 

Sa DEF FNscreen: (x1.vi}=tyl#lö)ıtnl+idaDd | 4219 e=AScter) 

A-17M 428 IF e=243 THEN »Z=H:#+1:507T0 inon 
1n8 FAFER BıFEN 1:C0L5 SB IF e=242 THEN xX=x7-1:507T0 100% 
222 FOR i=1 TO 18: FRINT"..... ou. r ...... 434 IF e=240 THEN Ya=y7-1l:26G010 1008 
"NEXT i 450 IF e=741 THEN yA=yA+1:59T0 1090 
z1@ FOR 2=422a0 TO 41300: POKE i,ASCi".") | 462 IF e=224 THEN BE: REM zeichen setren 
ıNEXT i 47’B IF e=52 THEN 7OR:REM zeichen loesche 
z2283 LOCATE ZA,i:FEN 3FRINT’Grafık-Desig | n . 

ner":PEN 1 4509 IF e$s="i1"THEN 70080 

225 LOCATE FB,3:FRINT"ic) Frank Braii" 485 IF et="r" THEN 4089 

2352 LOCATE 7,18 494 IF e$="s" THEN .SoDo 

335 FRINT"COPY = PUNKT SETZEN“ 4953 IF e$="y" THEN SO0Q 

=37 FRINT"SFACE = PUNKT LODESCHEN" 476 IF et="." THEN So 

237 PRINT" ‘=’ = BEFINIEREN" ‚saß IF e=14 THEN 180: REM iseschen 


Camoauba mb 


B/PR 





Sa5 
si 
Sad 
sd 
sim 
528 
[ei 
Gau 
a2 
zıa 
7zZ2 

Bi 
742 


ı018 


1228 


10350 
1242 
1050 
1960 
ARE ( 
1070 
1280 
HRS ( 
1100 
2a28 


305 


ZB10 
29208 
Ran 
scre 
Bad 
M co 
2a 
Zus 
2200 
3B1d 
FAR 
N Fo 
FNsı- 
zus 
3104 
Lie 
ran 
aaız 
En ya] 
4a: 
40402 
4950 
2 1& 
295 
47 
43:53 
278 
41 
elle) 
Suın 
ie 
Sag 
SasH 
rn 


Pooi 


Ran 


IF af=tzr 
IF es="qg" 
GEOTO 4002 
REM ## zeichen setzen #%* 
LÜGCATE xA,y#%: PEN L:FRINT"’#r"; 
FOEE Fäscreen (si, yA) „ASEUr") 
PLOT {K##2)+400,300- (vA#zı,1 
GOTO 408 

REM ** zeichen Iveschen ## 
LOCATE AA, yZ:PEN 1:FRINT"."; 
FOKE FNscreen (#%A,yAr aNSbi". “, 
FLOT (XZ#2)+4098,300-(yAr2),O 


THEN 7BUZ: REM definieren 
THEN 19289 


G0TO 408 
1200 


REM #** cursor zeigen #* 
IF »%1 THEN »%=1 

IF yAcil THEN yürl 

IF xzr>16 THEN x%=1ö 

IF y#A516 THEN yi=1ä 

e=FEEKR (Fliscreen {=%4, YA) 

LOICATE »% ,yA:PEN GsPAFPER 1::FRINT EC 
el? 

FOR i-= 
LOCATE 
eis 
5OTG 440 

REM ## screen-speicher anzeigen ##* 
SDUND 1,20,18 

FOR Y= 1 TO 16 

FOR »= 1 TO 15 

LOCATE #,y:PEN 1:2FRINT CHREIFEERK(FN 
en{n,yP}); 

IF FEEK(Fliscreen (x ,yı)=ASct"#") THE 
lor =i ELSE color =2 

FLOT (X#2DI +42, 202- (y+t2) „color 

NEXT »:NEXT ysRETURN 

REM ## invertieren #* 

FOR v= 1 TO 1&: FOR »=1 TO 16 

IF FEEE (FNscreen {x „y}3=ASCtE"#") THE 
KE FNscreen (x ,„y},ASCi".") ELSE FOEER 
resen (x ,y) ,BSCt"’#") 

NEXT MıNEXT Y 
EDSUB Taf 

SOTOD 2008 

REM ## rotieren *## 

u=B:FOR y= i TO 15: FÜR »=i TG 16 
zeichen= FEEE (FNsereen{in,y}! 
FOHE 4ET6GHu ,FEERGFNScCreen iA,y}d 
u=url:NEXT s:NEXT y 

u=d:FOR y=lös TO 1 STEF -i:FüOR x=1 T 


1 TO SU: NEXT i 
KAYSFEN 1:FAPFER BI: PRINT EG 


zeichen= FEEKid4B2SB+u) 
FORE Flscreen {y,„z) „zeichen 
u=u+rl:MEXT »:NERT y 

GOSUR Z602 

GOTO 488 

REM ** spiegeln y-achzse ## 
um: FOR y= 1 TO 15: FüR v=1 TO ls 
zeichen= FEEH(FNscreenie,y} 
FOEE dalbertu, FEEK(FNSer een (x, y2} 
vweut-isNERT SIBEAT % 

all: FOR y-1 TO l1sırüR 2-15 


70 1 STE 


ID 1 nen a 


Sau 
S@A78 
Briatztr] 
SAFE 
5128 
ann 


5312 


md 
tr Beil] 
EA 
belt 
2 15 
ES 
270 
038 
5272 
sie 
Fan 
uıu 
az 


FzAR 
7278 
7320 
7310 


FER 
2 


{4- 


Fan 

3a 
ELSE 
7358 
FZ68 
7370 
7aG2 
‚410 
F42E 
Fazz 
7449 
ELSE 
7458 
Fasa 
7478 
7588 


programme 


zeichen= FEEXiA4228BrHu) 

FOHE Fnscreen (x ,y},zeichen 
M=u+lıNEXT x:NEKT Y 

GOSUE Zee 

GoTO 422 

REM ## spiegeln »-achse #* 
u=sfsFOR y= 1 TB l&:FOR “=1 TO 16 
zeichen= FEEHiFNscreen in,y}} 
FÜORE AN26B+1,„FEEK iFiiscreen ix ,y>) 
u=u+lıNEXT xıNEXT y 

u=d:FOR y-14 TO 1 STEF -isFÜR ==1 71T 


zeichen= PEERI4OTA0Hu 
POEE Fiscreenia,y) zeichen 
azurli:NEXT sENEXT Y 

SQSUR ZOsE 

50170 4234 

REM #** definieren ## 

FEN 1:FAFER 9 


LOCATE 22,10: INPUT" ZEICHEN "szeiche 
IF- zeichen 177 OR zeichen:251 THEN 
LIEATE Z7,1B8: PRINT SPACEF (18) 


FOR y-i 108 
rodet="tn " 

FÜR x=1 TU 
W=FPEEK {Fhlscreen (x 
IF w=eßali"#") 


Paz 
THEN codeF=coade++r"i" 


E sodef=-codet+'2" 


NEXT x» 


wert {y3=VALleodefi 
NEXT y:Sob5lb man 
FOR y=1 TO 8 
codeF="gn" 


FOR »=®P TO 16 

w=PEEH i(FNscreen {ix ,y}) 

IF w=ASCct"#") THEM oodef=coder+ 
elet=codeFt"B" 

NEXT * 

wert (v)=VAL icode#) 

NEXT y:50SUR SRRa 

FOR y=-7 TO 15 

codet="25'" 

FOR «=i TO 

Ww=FEER {FNscreen (#7 ,y}) 

IF w=Asct"#") THEN code3=ecodeF+"l" 
radet=codest+"@" 

NEXT x 

sert iy-8)=VAL icoder) 

NEXT y:ıGlSua DRG 

FOR y=? TO 14 

codefF='"En! 

FÜR »=7 TO 1& 

w=PEEK {Fhiscreen {m „y}) 

IF w=äStt"#"} THEN endet=codet+"1" 
codef=ecodef+'"®" 

MEET MH 

wert ya =WAlicoosH) 

HEXT y:ıGOSuE 282 

ESTG 422 


nyH 


Et 


programme 


ıile schreiben »* 
zb=utwert (1 ):NEXT i 


Een REM s# DSYMEOL vo 

Saga u=B:FOR i=1 T08 

:Ir ve THEN BER 

Bald platz =-5522 : 

SPzB GOSUR FAGR 

SSR af=HfXtizeichen) 

SaS1 IF LENSaF)<2 THEN at="f"sar 

B252 FOKE platz ,„ASEÜLEFTEÜaAF,1))} 

EAST FOEE platz+1 ,ASG(RIGHTFaF,1)) 

8335 zeichen zszeichen+i:60SUE Food 

BNSR FOR u=l 1058 

S272 st=HEXE (wert (u}) 

3475 IF LENTaAFRZZ THEN af="V"+ar 

SEgZ FOKE platz „ASC{LEFTFIGSE,1}) 

Ssar7R FOKE platz+l ASCIRIGHTE (a, 1) 

gig GOSUB Fand 

silda MEXT u 

528 RETURN 

Tagdd REM #* naechste byte suchen ##* 

aaa SDUND 1,18,7 

Fa plate=plat=-1@ 

Fa1la WHILE (FEERI(platz)cr 

kiplatz+l)Z>ASct" DJ} 

FE23 platz=splatz+i 

73202 WENDE RETURN 

i0220 REM #* definieren beenden #* 

12013 FEN 1:FAPER B:CLS 

ana LGCATE 3,3: FRINT"PROGRÄAMM IST ERST 

ELLT II: PRINT:PRINT:FRINT 

10830 PRINT"LETZTE DATA-ZEILE MUSS So Au 

SSEHEN: ":FRIMT 
12242 FRIMT" 

HIT 

12950 FRINT* RESTLICHE ZEILEM MIT DELETE 
LOESCHEN 8 

in122 DELETE -49 999: END 

Sad REM #*# ZEICHEN DEFINIEREN ** 

seaBil ° 

sBa1A RESTORE Siaaf 

SUBZE READ af: IF af="#=" THEN RETURN 

Saaz0 u=1sFÜR a=1 TO 18 STEF 2? 

2248 vertiu)=VALÜR"H+MIDFIAF,a,229 

SRG u=u+l:NEXT a . 

SOasB SYMBOL wert ii} ,wert (7) ‚wert (3) ‚wer 

t(4) „wert (9) „wert iö} „wert (7) 


"basic such-anfang 


ASCt"1"} OR FEE 


KAHERODATA "#* ":PRINTIıFRI 


rt(9) 
S227a GuTO Saa2a 

Spin ' 

S1038 DATA "ILITILILILILILITIE"  "ICITIC9 
EIEIEIEILIT“ 

S10@1 DATA "ILIEILIEILICIEILIL" ,*ICICIEI 
EILIEILIEHE" 

51292 DATA "ILILILILICILILICIL" ,"ICIEICI 
EICILIEICIT® 

51083 DATA "ILIEILILILICIEITIE" "ICILITI 
EILILILICIE® 

51024 DATA "I3EILILILILILILILIE"  "IEICIEI 
EILILILIEIE 

51825 DATA "ILJLIJCILIEILILILIE" „"IEIEIEI 


LIIL3EILICIE" 


Hyd 


„wert iB) we 





Damanba mib 


31225 DATA “ILICITILILILICIC IE" 
£L3EILILCILIE® 

S1Q0N7 DATA “IEILIEILITIEIEIEIT®, “IC3raE] 
LIL3LILTIEIC® 


» JE123[3 


sılBag DATA “SCILILILICIEFLILIE" "I3CIEIEI 
TIEILICIEILE" 
1007? DATA “I3EILILILILILILILIT" ,"ICILCIEI 
LIEILIEIEIE® 
Si2la DATA "ILILILIEITITILIEIE" ,"I3EIE II 
EIEIEILILID® 
si21l1 DBTA "ICILIEIEILICFEILICH  ,PICICIEH 
E3SLIEILIEID® 
1212 DATA “SEILDLILILATIEIEITIE "ILICIEI 
FJEI3ELI3LILIE" 
s1@13 DATA “SLIEILCIEIEILICILIE"  "ICILIEI 
EILILIEIEIE" 
=1@14 DATA "IEILIEILTITCIEITILIL"  "ICIEIEI 


T3L3LILITIE® 

s1215 DATA "ILITILILIEIEILILIE"  "ICICIEI 
EJILIEILITII 

S1al& BATA "ILILIEIEIEITITIEI® 
ESLILILCILIE" 


„"ICIEat3 


s1217 DATA "ITIEILICILITIJEIEIE"  "IKICIEI 
TILILICITIE® 

siaig DATA "I3LILILIEIEILILILIE"  "IEIKIEI 
EIEJILILIEIL® 

51217 DATA “IEILILITICILIEILIE" ,"ICILIEN 
LILITILILIL" 

SIBZR DATA "I3LILILILIEILILILIE" „"ICIEIEI 
L3LI32ILILIE® 

St@21 DATA "ILICILIEILITILILIC" ,"ILIEIEI 
 E3SLILILIEICH 

1222 DATA "ICILILICILILILIE ICH » 3C3LJCI 
L3E3L. IL 3LIEC® 

S1R2Z DATA "ILIEILIEIFICILILIE"  "ILICIEI 
LIEIEILILID® 

s1924 DATA “IEILIEILILITIKIEIE®  PI2C3L 302 
FILIEILIEID® 

1925 DATA "IJEITIEISLILIECILILIE" ,*ICIEIEI 


. LIELILIEILIER 


S1oza DATA “ICILILIEILILIEILIE" ,*ICILCIEI 
LILILILIEID® 
51277 DaTä “IEICIEILIEICILILIEN, 
EI3LILIEILIL" 
SiS DATA "ARIEICILICILICITIL" “ICACIE9 
L3L3EILTLIT® 
SI1B27 DATA FILILITILILILILILIE® 
LI3LILIEILDIE" 
Aissd DATA “IEILILILIEILILILIE"  "IcIcIe} 
E3LILIEIDID” 
S1221 DATA "ILILITIEICILILIEIL®, 


"ICHTIlI 


„"3C3L2 102 


"SLirıd] 


E3EIEALILIE® 
algSz DATA "IDIE 
EITIEAEaEAEN 


3L JLSLIRIEIK IE ,“IcIcic 
°,*JCIL360 
IEILIE”" ,*ICILICN 


» Jr. 3213121 


non 


! 


F;.\ 


# 


tips & tricks 


51038 DATA "I3EIEILILIEILICILIE"  "3CIcHT 
E3EIJIELITILICH - 
1237 DATA "I3EICILIEIEICILICIE"  "ICICIEI 


S1934 DATA "ICIEILILICILITILIL" „"ILIEILH 
LIEIEILALIE" 
51237 DATA "ILILIEITIEILCIEIL ICH FICICILI 














EILILITCILID" LIELITICILIL" 
ZEILENNK.: SUMMEN 620- 658: 65426 SOSB- SücR: 91789 7320- 7430= SIOW-SIQH: 297004 
1- 2: 27774 530- TB: 24773 SU7B- 5080: 73687 FAAB- FASO: LMNS-H19Q00: 20904 
Fia- 728: 47717 Sa7Q- SIEB: 1947 7A6D- 7470: 39286 i Sinacı 20024 
730- 740: 52687 ERAB- KAM: 65751 75@0- BRAD: 3757 SIEB7-SIRRB: zonDa 
1a02- 1018: 31492 SO20- &A54:117157 Buas- 9Ble: S1989-S1U18: ZYana 
1B2B- 1850: 28717 EO4B- 5050: B19B7 Ba22- ans. Simli-Biale: zone 
1844- 1258: 5a57a sDAQ- &B7B: 81304 88S1- 8252: SIMS-1014: 20004 
ın6d- 1arar 47:87 be B053- 8653: S1215-51016: 29824 
126d- 1100: 32887 ERuB- BO7B: S1O17-S1B1E= ZO0B4 
ORd- ZUW3: A027 B875- BRBSD: 
2918- : 20970- g1a0: 3055 
2058- 2 SilB- 9200: 
2030- IuRd- Fand: : 
Sona- 7 = = [E: gaNS- Faıdz 
3020- zasd: 8909 A2B- 9030: 
SsaB- S110ı 1947 10922-10m1@: 
aaad- AQıd: 52081 1BR20-1aB3a: 11192 
4020- 4030: 127152 1ana9-ınasa: 7 
aa4B- AQ5B: B19@7 = 12109-Saaad: 
AQhB- AQ70: 81379 397 SQABI-SA@LE: 
AaBD- 4870: 25201 7320- 7330: 42160 SABZB-S08IB: 
41ab- SED: 23749 7540- 7359: 21090 SORAU-SERSE: GESAMTCHELKSUMNE: 41925 
SOIB- 5020: 99964 7368- 7370: 39286 SAB6A-SURTA: 
sOR- Eid: 33087 SES2- SDad: 84219 7ana- 741M: 13899 58129-51800: 





Korrekturen - Korrekturen - Korrekturen (aus Heft 4/86) 








In unserer letzten Ausgabe sind uns gleich zwei Programmfehler unterlaufen. Zunächst wurde im Programm „Space-Rescue“ eine 
ganze Zeile nicht abgedruckt. Fügen Sie. bitte folgende Zeile noch ein und Ihr Programm ist funktionsfähig: 


3700 DATA 123, 123, 248, 122, 121, 120, 126, 122, 122, 121, 119,120, 115, 120, 124, 118, 118, 248, 124, 125, 248, 120, 
114, 123, 129, 248, 117, 117, 123, 117, 
3710 DATA 248, 122, 121, 123, 123, 120, 126, 248, 119, 117, 119, 139, 119, 121, 252, 119, 124, 117, 120, 119, 116, 000, 


000, 000 


Dann wurde bei dem Programm „Star-Fight“ in den Zeilen 3010 und 3020 eine Zahl nicht vollständig abgedruckt. Hier nun die voll- 


ständigen Zeilen: 


3010 DATA 19, 19, 19, 26, 254, 140, 32, 174, 171 
3020 DATA 19, 26, 214, 32, 56, 117, 221, 229, 146 


Beide Fehler sind auftechnische Probleme im Druck zurückzuführen und sind nicht von der Redaktios in die Programme eingearbeitet 
. worden. Wir-bitten alle Leser an dieser Stelle um Verständnis, aber wie Sie ja sicherlich wissen, ist auch die Technik nicht vollkom- 


men. 





MPS E TRICKS für den CPC AA — 





Erzeugung von Zufallszahlen durch Maschinensprache 


Bei zahlreichen Programmierern scheitert 
die Erstellung schneller Spiele, geschrie- 
ben in Maschinensprache, daran, daß kei- 
ne Zufallszahlen erzeugt werden können. 
Möchte man nicht auf die Möglichkeit zu- 
rückgreifen, die ROM-Zustände zu verän- 
dern, so wird eine Problemlösung wesent- 
lich erschwert. GPC-Computer besitzen 


eine relativ einfache Möglichkeit Zufalls- 
zahlen im Bereich von 0 - 127 zu erzeu- 
gen. 

Wie sicherlich den meisten Z80-Usern be- 
kannt ist, besitzt dieser Prozessor ein so- 
genanntes Refresh-Register, daß zur Auf- 
frischung der Daten bei dynamischen 
RAM's dient. CPG-Rechner benötigen die- 


ses Register nicht, so daß die darin enthal- 
tenen Werte völlig zufällig sind. 

Um diese Werte für eigene Programme zu 
nutzen, verfüct der Z80 über einen einfa- 
chen Befehl: LD, A, (Lade den AKKU mit 
dem Inhalt des REGISTERS R). Durch BIT- 
MANIPULATIONEN kann man die so ge- 
wonnene Zahl beliebig verändern. 


DESSERT ROTH 





9/86 


Gompufe mi 


werkstatt 


__CROSS-REFERENCE für Schneider ePC 466 





Das Programm CROSS-REFERENCE dient 
zum Erstellen von Cross-Referenz-Listen 
von Basicprogrammen. 
Cross-Referenz-Listen sind Listen, in de- 
nen alle in einem Programm angesprun- 
genen Zeilen mit Verweis auf die jeweils 
aufrufende Zeile, sowie aller Variablen 
und die Zeilen, in denen sie jeweils vor- 
kommen, aufgelistet sind. 

Sehr hilfreich ist eine Gross-Referenz-Li- 
sie, wenn ein längeres Programm geän- 
dert werden soll, oder beim Debugging ei- 
nes fehlerhaft laufenden Programms. 
CROSS’REFERENGE ist vollständig in Ma- 
schinensprache geschrieben, sodaß die 
Erstellung einer Cross-Referenz-Liste 
selbst bei einem sehr langen Programm in 
annehmbarer Zeit geschieht, 

Da das Programm über ein Menue ge- 
steuert wird, ist die Handhabung sehr ein- 
fach. Es stehen fünf Optionen zur Verfü- 
gung, die jeweils durch den Anfangs- 
buchstaben aufgerufen werden können. 


>Baiscprogramm laden< dient zum Laden 
des zu untersuchenden Programms. Es 
können Programme bis zu einer Länge 
von ca. 35,5 KB untersucht werden. Sollte 
ein Programm länger sein, wird eine ent- 
sprechende Fehlermeldung ausgegeben, 
ebenso wenn es sich bei dem Programm 
nicht um ein Basicprogramm handelt. 


>Kataleg< Mit dieser Option wird die Di- 
rektory der Diskette angezeigt, bzw. ein 
Cassetten-Catalog erstellt. 


>tCross-Reference-Liste<< Nachdem Sie die 
Taste ’C’ für diese Funktion gedrückt ha- 
ben, erscheint unter dem Hauptmenue ein 
zweites Menue. Sie können wählen, ob Sie 
eine Referenzliste nur für Sprünge, nur für 
Variablen oder für Beides erstellen lassen 
wollen. Die Ausgabe der Cross-Referenz- 
Liste kann wahlweise auf einem Drucker 
oder auf dem Bildschirm erfolgen. 


Die _ erzeugte _Cross-Referenz- 
Liste hat folgendes Format: 


Sprungtabelle: Die aufgerufenen Zei- 
len werden in numerischer Reihenfolge 
ausgegeben. Die sie aufrufenden Zeilen 
sind jeweils darunter zusammengefaßt. 
Der aufrufende Befehl (z.B. GOTO, GO- 
SUB, ON GOTO usw.) wird mit ausgege- 
ben. 


Variablentabelle: Die Variablen wer- 
den nach Variablentypen zusammenge- 
faßt in der Reihenfolge INTEGER, REAL, 
STRING ausgegeben. Innerhalb eines Va- 
riablentyps werden zunächst normale 
(z.B. a,i, usw.) und anschließend indizierte 


Variablen (2.B. ai) usw.) ausgegeben. In- 
nerhalb einer Gruppe geschieht die Aus- 
gabe alphabetisch. 


Haben Sie für die Ausgabe der Cross-Re- 
ferenz-Liste den Bildschirm gewählt, wird 
nachdem eine Bildschirmseite volt ist, auf 
Tastendruck die nächste ausgegeben. Bei 
der Ausgabe auf einen Drucker wird nach 
jeweils 60 Zeilen ein Formularvorschub 
ausgeführt. 


>Variablenliste<{ Es werden alle im Pro- 
gramm vorkommenden Variablen in der 
oben dargestellten Art aufgelistet, jedoch 
ohne daß die Zeilen in denen sie vorkom- 
men angezeigt werden. 


Programm heenden< Dient zum Verlassen 
des Programms. 


Möchten sie eine von Ihnen aufgerufene 
Option abbrechen, so gelangen Sie durch 
Drücken der Taste ’ESC’ ins Menue zu- 
rück. 


Nachdem Sie das Basic-Lade-Programm 
gestartet haben, wird zunächst ein kurzes 
Ladeprogramm und anschließend das 
Maschinenprogramm abgespeichert. Das 
fertige Programm wird mit RUN “CRDSS- 
REF“ gestartet. 


te) Wolfgang Boenigk, Osnabr 
180.3 E SB HRS SS HHHRHHHHHHRHBBHHHHR 


210 LOCATE 10,7: PRINT "Bitte warten a... 
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100 ERRRSERHHRSHHHHHHHHHHHRRRRERER | 150 Hr 
FR veck *#%% 
110 RER 170 'X%%% 
KRR ER 
’ ROSS - REFEREN 
aa ar ° ERIK 
190 ’ 
’x 
"so x zZ00 MODE 1 
140 ’XX%%* fuer! Schreider CPC As4 
KrrR . 
150 E88 220 MEMORY &SFFF 
*rr% 230 DEFINT a-z 
GSompuhs mib 


54° 


240 adr =&k9000 
250 FOR i=1000 Tü 1183 


50 sum=O 

27 FOR j=i1 TO 1? 

230 READ a8 : a=VALÜ'"k"+a$) 

230 Ssum=Ssunm+a 

300 FPOFBE adr,a ; adr=adr+ti 

310 NEXT j 

320 READ 35 ı a=VAL(Ü'"k"+a$) 

330 IF sum=a THEN 350 

340 CS : LOCATE 10,10 : PRINT "Fehle 


r in Zeile"si 


350 PRINT CHR$(7) 2 END 

250 NEXT i 

370 

380 MODE 2 : LOCATE 10,7 

370 FRINT "Legen Sie eine Cassette oder 


Diskette ein" 

400 LOCATE 10,7 

410 PRINT sund druecken Sie anschliessen 
deine Taste !" 

4720 CALL &BBIS 

430 OPENGSUT "CROSSREF" 
430 FOR i=1 TO 3 

450 READ 3# 

450 FRINT#HP, a 

470 NEXT i 

430 CLGSEQUT 

470 SAVE "CROSSREF.OBJI" 
S00 CLS + LOCATE 10,7 
510 PRINT "Das Frogramm ist unter den Fi 
lenamen" 

520 LOCATE 10,7 

530 PRINT "TCROSSREF und CROSSREF,DEJ ges 
peichert !" 

540 END 

550 ? 

1000 DATA AF,32,C0,9D,3E,02,CD,0E,BC,AF, 
32,21,AC,21,01,0D,CD,?5,BB, O?EF 

1001 DATA 21,78,72,08,27,CD,E3,93,21,04, 
14,CD,73,BB,21,694,7D,065,14, 0718 

10602 DATA CD,E3,93,21,06,14,CD,75,BB,21, 
4E,70,085,16,C0D,E3,93,21,08, ÖOS0F 

1003 DATA 13,CD,73,BB,21,3F,7D,05,0F,CD, 
E3,73,21,0A,14,CD,75,BB,21, 0?7C3 

1004 DATA 37,7D,08,098,CD,E3,#3,21,0C,1%, 
CD, 75, BB,21,25,7D,056,11,CD, O7ZE 

1005 DATA E3,73,21,10,18,CD,75,BB,21,00, 
7D,058,00D,CD,E3,73,CD,18,EB, 0870 

1006 DATA FE,61,230,02,C058,20,FE,6E, 25,34, 
FE,S2,CA,C1,70,FE,53,CA,72, 0A54 

| 1007 DATA F1,FE,76,CA,260,72,FE,70,28,02, 
418,DE,21,10,09,CD,75,BB,21, 0873 

1068 DATA SE, °C, 06, 31,CD,E3, 73,CD,18, BB, 
FE,61,30,02, 66, 20, FE, ER, CC, OSEF 

1007 DATA 00,00,03,04, 50, 3E, 02,CD,0E,BC, 
11,18,FE,CD, 9B, BC, cv, B2, 22, 082A 

1010 DATA C3, 04, 50, ch, aA, 72,21,01,01 ‚cD, 
75,BE,21,6%, SD, 06,14, CD, E3, 085C 

1011 DATA 93, 21, 03,01,CD,75,BB,21,0D,9D, 
06, 0A,CD,E3,93,21,00,00,22, 0815 


‚D+&7000 , &DA4 
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1012 DATA Ag,AC,21,A4,AC,CD,3A,ED,FS,CD, 
D6,92,F1,CA,04,70,CD,E0,72, OC3D 
1013 DATA 11,13,7E,C0D,77,BC,30,6E,FE,00, 
20,48,60,67,11,70,01,19,22, 0851 
1014 DATA 83,4C,22,85,AC,22,87,4C,22,8%, 
AC,i1,F68,8F,ED,52,30,46,21, 089A 
1015 DATA 70,01,C0D,83,BC,CD,?9,BC,CD,Dö, 
92,3E,01,32,00,9D,34,88,9D, OAli 
10i& DATA B?,28,0F,47,21,A94,AC,CD,E3,#3, 
21,F2,7C,08,0E,CD,E3,93,CD, O?FBC 
1017? DATA A8,72,CD,B2,92,C3,04,70,CD,D6, 
92,21,A4,AC,3A,B8,9D,47,CD, OßAEB 
1018 DATA E3,73,21,09,9C0,06,19,CD,E3,#3, 
18,0B,CD,D6,92,21,BF,#C,064, 0948 
10619 DATA 1A,CD,E3,73,0D,79,BC,13,D0,3A, 
£0,9D,FE,00,CA,6C,?2,CD,#A, OBOB 
1020 DATA 92,21,01,01,7D,75,BB,21,48,9C, 
05,15,0D,E3,73,21,03,05,CD, 070B 
1021 DATA 75,EB,21,18,9B,08,07,CD,E3,93, 
21,05,05,00,75,BB,21,00,7B, 0744 
1022 DATA 064,0A,CD,E3,93,21,07,03,CD,?5, 
BR,21,05,7B,06,07,CD,E3,93, 078E 
1073 DATA 21,09,05,CD,75,BB,21,00,9D,06, 
0D,CD,E3,93,CD,18,BE,FE,&1, 083F 
1924 DATA 30,02,C5,20,FE,62,28,0F,FE,73; 
28,0F,FE,?6,28,10,FE,FC,CA, 080? 
1025 DATA D8,72,18,E4,AF,4F,18,07,AF,0E, 
c9,18,04,3E,C9,0E,00,32,B8, 0725 
10725 DATA 98, ?9,32,51,94,CD,6C,BB,21,45, 
9C,06,15,CD,F4,92,3E,02,32, 0801 
1027 DATA FA,9S5,32,22,76,21,5B,976,068,03, 
AF,77,23,10,FC,21,2D,2D,2?, 0686 
1023 DATA 01,7C,3E, 16, 32,D06,75,3E,0F,32, 
2C,968,CD,B8,98,CD,51,74,CD, O086B 
102? DATA B2,72,03,04,90,3A,C0,9D,FE,00, 
CA,60,92,3E,01,32,FA,75,32, OF2A 
1030 DATA 22,768,3E,C3,32,5B,768,21,F0,#5, 
22,50,965,3E,0A,32,D06,95,3E, 07E9 
1031 DATA 07,32,20,768,21,20,20,22,01,9C, 
21,5D,?C,08,12,CD,F4,92,AF, 059F 
1032 DATA 32,51,94,CD,51,74,00D,B2,92,C3, 
04,70,CD,7A,72,21,E0,9B,0&, OsCC 
1033 DATA 20,CD,E3,73,CD,A8,92,CD,B2,92, 
C3,04,70,E5,21,80,AE,05,0A, O09#F& 
1034 DATA 38, 20,23,10,FB,E1,DF,FP,FA,DF, 
FC,?A,08,06,21,62,AE,C3,E3, OAZF 
1035 DATA 93, 26,13,16,3B,ZE,0F,1E,37,0D, 
&68,BB,C3,50,BB,26,00,16,4F, 0SF2 
10356 DATA &C,1E,18,C03,66, EB,CD,83,72,3A, 
21,AC,FE,08,20,0%,3E,0C,DF, O?EC 
1037 DATA F6,9A,AF,32,21,AC,21,19,18,CD, 
75,BB,21,17,9D,06,0F,CD,E3, 0827 
1035 DATA #3,C3,18,BB,3E,0D,C6D,5A,BB,3E, 
0,03, 5A,EB,21,A4,AC,AF,47?, OSDI 
1037 DATA BE,28,04,04,73,18,F9,78,32,B3, 
9D,21,A4,AC,C97,E5,65,22,B?, OSEO 
1040 DATA 7D,78,32,BB,9D,CD,7A,92,21,01, 
91,0D,75,BB,C1,E1,CD,E3,93, OA9D 
1041: DATA 21,03,05,C0D,75,BB,21,82,9C,06, 
0°,CD,E3,73, 21,05, 05,00,75, 0727 
1042 DATA BB,21,77,9C,05,0B,CD,E3,73,21, 


Gompure mi 


d0 


werkstatt 


06,05,CD,75,BB,21,86F,9C,06, 07?9E 

1043 DATA 08,CD,E3,93,21,08,05,C0D,75,BE, 
21,00,7D,05,0D,CD,E3,73,21, 07AB 

1044 DATA 00,00,22,BE,?D,CD,18,BB,FE,&1, 
30,02,06,20,FE,62,28,0A,FE, 0824 

1045 DATA 64,28,21,FE,FC,28,78,18,E?7,AF, 
32,21,AC,3E,02,CD,0E,BC,3E, 080B 

1045 DATA 17,32,BD,9D,CD,94,93,AF,32,A8, 
9D,C0D,F2,93,C3,F2,93,3E,42, O0AD? 

3047 DATA CD,1E,BB,C2,D&,93,CD,2E,BD,38, 
F3,3E,08,32,21,A0,3E,30,32, 0845 

1048 DATA BD,?D,18,D0A,11,07,00,2A,B?,9D, 
3A,BB,7D,47,CD,DC,93,11,40, O084A 
1047 DATA C0,21,41,9C,06,07,CD,DC, 73,34, 
723,92,F5,2A,95,92,£5,3E,04, 0813 

1050 DATA 32,93,92,21,64,AE,22,95,92,2A, 
BE,?D,23,72,BE,?D,CD,80,972, 08D? 

1051 DATA E1,22,95,72,F1,32,93,92,AF,32, 
BC,7D0,C9,31,00,C0,C3,04,90, OFBD 

1052 DATA ES,C5,DF,F3,9A,C1,E1,ES,7E,DF, 
F6,9A,E1,23,10,F7,3E,FF,32, 0004 

1053 DATA A8,9D,C9,E5,D5,C5,3E,42,CD, IE, 
EB,C2,D6,93,3A,BD,9D,47,3%A, OAF3 

1054 DATA EC,9D,B8,28,12,3C0,32,BC,97D,3E, 
OD,DF,F&6,FA,3E,0A,DF,F&,9A, 0983 

1055 DATA C1,D1,E1,C9,3A,21,AC,FE,00,20, 
2A,21,1%,14,CD,75,BB,21,BF, 08B6 

1056 DATA #B,05,19,CD,E3,93,CD,18,BB,FE, 
FC,CA,D&,923,3E,02,CD,0E,BC, OAA1 

1057 DATA CD,94,93,AF,32,A8,9D,CD,F2,93, 
CD,F2,93,18,CB,3E,0C,DF,Fö, OBCO 


: 1058 DATA 9A,18,EA,00,3E,05,32,93,92,21, 
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63, AE,22,95,92,2A,83,AC,2B, 0735 
1057 DATA 2B,22,AB,?D,21,0C,AE,06,1A,36, 
05,23,10,FB,3E,8E,2A,FF,9A, 0688 
10680 DATA CD,63,97,3E,8F,2A,01,7B,CD,63, 
97,3E,90,2A,03,9B,CD,63,97, O8?E 
1061 DATA 3E,02,32,A9,90,32,AA,9D,3E,0B, 
21,07,9C,CD,B9,974,3E,04,32, O6Ct 


1082 DATA A9,90,30,32,AA,9D,21,18,9C,3E, 


0D,CD,E9,74,3E,03,32,A9,9D, O7EE 

1053 DATA 32,AA,9D,21,29,90,3E,00,03,B9, 
94,C09,22,B5,9D,32,A2,9D,AF, 0916 

1064 DATA 32,A3,9D,21,96,95,22,5E, 75,21, 
53,97,22,D2,96,AF,32,B1,9D, 0897 

1065 DATA CD,EB,94,21,9F,95,22,5E,95, 21, 
5C,97,22,D2,96,3E,01,32,Bi, 0876 

1065 DATA 9D,CD,EB,94,C9,21,17,9E,0E,07, 
AF,47,77,23,10,FC,0D,20,F8, O8SE 

1067 DATA DD,21,70,01,DD,5E,00,DD,56,01, 
CD,AB,98,CA,A&,95,DD,ES,DS, OABA 

1068 DATA CD,C0,97,7B,06,05,47,C5,3E,0D, 
DD,BE,00,28,4B,38,1B,3A,A9, 0815 

1067 DATA 9D,DD,BE,00,28,08,3A,A2,9D,DD, 
BE,00,20,0B,AF,DD,BE,01,20, 0812 
1070 DATA 05,DD,BE,02,28,13,DD,23,3A,A4, 
9D,3C,32,A4,9D,C1,10,CF,Di, 0878 

1071 DATA DD,E1,DD,17,18,B2,DD,ES,E1,23, 
23,23,E5,CB,7E,23,28,FB,7E, OA?C 

1072 DATA 23,FE,20,28,FA,03,96,95,E1,CD, 
CB,97,18,D2,AF,DD,BE,01,20, OAB& 
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1073 DATA CC,DD,BE,02,20,C7,DD,ES,E1,23, 
23,23,00,69,98,28,BC,21,Ci, O9FO 

1074 DATA 9D,5E,16,00,21,AB,AD,19,4E,3A, 
AA,9D,B9,C2,38,95,CD,2C,78, O084B 

1075 DATA 20,B8,C3,38, 95,FE,28,02,60,95, 
E1,C3,38,95,FE,28,CA,60,95, OA9B 

1076 DATA 18,F5,21,17,9E,AF,BE,C9,22,AF, 
7D,24,A3,9D,FE,00,20,2A,3C, 0894 

1077 DATA 32,A3,9D,3A,BD,9D,D6,05,4F,3A, 
BC,7D,B9,38,0A,3A,BD,9D,3D, OSSF 

1078 DATA 32,BC,9D,CD,F2,93,068,03,CD,5D, 
98,11,14,00,21,3B,9C,06,0&, O6Di 

1077 DATA CD,DC,93,2A,B5,9D,06,11,CD,E3, 
93,21,34,9C,06,06,CD,E3,93, 0758 

1080 DATA ZA,AF,9D,AF,BE,C8,3A,BD,>D,D6, 
02,47,3A,BC,9D,B8,CC,F2,93, OAFA 

1081 DATA ZA,AF,9D,11,EC,9D,06,00,7E,FE, 
00,28,08,CB,BF,12,23,13,04, 0698 

1082 DATA 18,F3,78,32,AD,9D0,23,22,AF,9D, 
C5,06,02,C0D,5D,98,21,01,9C, O0?DD 

1083 DATA 06,03,11,0D,00,C0,DC,93,C1,21, 
EC,9D,CD,E3,93,3A,A9,9D,FE, O98F 

1084 DATA 03,20,05,3E,24,DF,F&,9A,3A,Bl, 
9D,FE,01,20,08,21,04,90,06, O6&F 

1085 DATA 03,C00,E3,93,21,00,9C,08,03,CD, 
E3,973,00,00,00,3E,0A,32,B4, 067D 

1086 DATA 9D,DD,21,70,01,DD,5E,00,DD,56, 
01,DD,6£,02,DD, 64,03,22,B2, O7E2 | 
1087 DATA ?D,CD,AB,98,CA,F0,95,DD,E3,DS, 
CD,C0,97,7B,D6,05,47,C5,3E, 0657 

1088 DATA OD,DD,BE,00,CA,21,97,38,1B,3A, 
AF,9?D,DD,BE,00,28,08,3A,A2, 07A4 

1089 DATA 9D,DD,BE,00,20,0B,AF,DD,BE,O1, 
20,05, DD,BE,02,28,13,DD,23, 07AB 

1090 DATA 3A,A4,9D,3C0,32,44,9D,C1,10,CE, 


| D1,DD,E1,DD,19,18,A8,DD,ES, OADO 


1091 DATA E1,23,23,23,E5,CB,7E,23,28,FB, 
7E,23,FE,20,28,FA,C3,53,97, 0?4C 
1092 DATA E1,CD,69,98,28,D2,3A,AD,9D,05, 
B8,20,CB,C5,21,C1,9D,CB,BE, OAA2 
1093 DATA 23,10,FB,C1,21,C1,9D,11,EC,?D, 
1A,BE,20,B7,23,13,10,F8,3A, O82F 
1074 DATA B4,9D,FE,0A,20,0F,CD,F2,93,21, 
D8,98,06,08,11,07,00,CD,DC, 083D 
1095 DATA 93,AF,3C,32,B4,9D,2A,B2,9D,CD, 
80, 92,3E,2C,DF,F6,9A,C1,18, OAOB 
1096 DATA 97,AF,DD,BE,01,20,85,DD,BE,02, 
20,80,DD,ES,E1,23,23,23,CD, 099D 
1097 DATA 69,98,CA,AC,976,21,C1,9D,5E,16, 
00,21, AB,AD, 17,4E,3A,AA,9D, 0861 
1098 DATA B9,C2,AC,96,CD,2C,98,C2,BF,96, 
C3,AC,96,FE,28,02,04,96,E1, 0C5D 
1099 DATA C3,AC,96,FE,28,CA,D4,96,18,F5, 
32,A9,9D,22,9F,9D,DD,21,70, OABO 
1100 DATA 01,DD,5E,00,DD,56,01,CD,AB, 98, 
C8,0D,E5,D5,CD,C0,97,7B,D&, 0BS4 
1101 DATA 05,47,C5,3E,20,DD,BE,00,20,0C, 
DD,23,C1,10,F3,D1,DD,E1,DD, 0966 2 
1102 DATA 19,18,D8,34,A7,7D,DD,BE,00,20, 


14,3E,20,DD,BE,01,20,0D,DD, 075C 
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Bewerbung als Programmautor 
Name: 00 Vorname: 
Straße: Wohnort: 
. Titel des Programmes: _ —_ — — nn Computersystem: 
Erforderlicher Speicherplatz: KBytes 
Erforderliche Peripherie ————————— 000 nn 


ich versichere hiermit, daß ich der Autor desoben genannten Programmes bin und alle Rechte besitze.ich bindamiteinverstanden, daß Sie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassel _ _______ Diskette ______... Dokumentation: _____.... — Listing: _——... — Rückporto: 


. Unterschrift des Programmautors: 


_ Einsenden an: Trenie-Verlag Abt. Programmentwicklung, Am Stad 35, 3440 Eschwege 





| Kleinanzeigen # Kleinanzeigen % Kleinanzeigen % 


Auftrag für Gelegenheitsanzeigen in „Compute mit... 


Name und Adresse 


An „Gompute mit ..: 
Tronic-Verlag 

: Postfach 
3440 Eschwege 


Unterschrift 


Unter der Rubrik „Kleinanzeigen"- Ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- 

anzeigen für Verkaufsangebote, 

Kauf- und Tauschgesuche, Kon- 

taktaufnahme bzw. Erfahrungs- 

austausch usw. 


Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 19,- DM 
(dürfen nicht unter Chiffre erschei- 
nen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 





Zutreffendes ankreuzen 
Kleinanzeigen jetzt suche O Software suche © Hardware. © Tausch CO Versch. 
noch preiswerter biete an Ö Software biete an (© Hardware Ö Kontakte  C Chiffre 
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kleinanzeigen 


Biete Software 





Commodore 16/116: Wirhaben 
die Programme, die Sie su- 
chen! Die tollste Software zu 
Taschengeldpreisen! Infos 
kommen kostenlos von: An- 
dreas Bachler, Postfach 429, 
4290 Bocholt. 

Außerdem: 5 Top-Spiele zu 15,- 
DM (kleines Überraschungspa- 
ket} oder 8 Top-Spiele zu 20,- 
DM (großes Überraschungspa- 
ket). 


Software für jeden Computer! 
Tolle, unglaubliche Games jetzt 
auch fürihren Computer! Infor- 
maltionsmaterial kommt ko- 
stenios für Schneider GPC 

464/664, VC-20, Commodore 

64/16/116/Plus 4 von: 

EM SOFTWARE-VERSAND 
Andreas Bachler 
Postfach 429 
4290 Bocholt 


C-167/C-116 Superspiele! % 
Into gegen Rückporto bei Harı- 
nes Kaltenbach, Prielmayerstr. 


16, 7990 Friedrichshafen 1. 


_ cassetten. 
Spiele nur für 20 DM. 20 Spiele. 


VERKAUFE C 16/116 Spiele- 
Alle möglichen 


Auch Listings zu verkaufen. An- 
fragen Jens Lohmann, Lech- 
weg 5, 2300 Kiel 14 





..„.u.....u.o.. 
® BESFORC-16%BESFOR ®& 
® Wir bieten die Supersoft- ® 
© ware zu Spitzenpreisen!!! ® 
© Liste anfordern! ® 
® Beyert-EDV-Serice ® 
® PF 1159, 4030 Ratingen 1 @ 
® (Auch - für C-64_ und ® 
® Schneider Computertyp ® 
® angeben. - ® 
...„........0 


%* Verkaufe Orig.-Top-Games 
auf Tape für den C-64: z. B. Za- 
ga, Slapshot, Hexenküche, Ka- 
rateka, Thing on a Spring, De- 
caihlon, Soccer, Football, Man- 
ager, Bruce Lee, Pitstop 2, 
Summergames 1& 2, Winterga- 
mes, Hero, Amer. Road Race 


‚Ptifall 2, Elite, DT, B. McGui- 
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gan’s Boxing, Nick Faldo’s 
Open, Revs, On Court Tennis - 
je 20 DM. Abs.: R. Klatt, Hölder- 


linstraße 3, 7433 Dettlingen- 


Erms. 





C-16/C-116 Verkaufe Programm 
„Lotto“. Jede Woche Lottozah- 
len eingeben, C-16/G-116 sagt 
Ihnen welche 7 Zahlen am mei- 
sten gezogen wurden. Auf Kas- 
sette, mit Anleitung 28,- DM 
gegen Verrechnungsscheck. 
K. Scholz, Berchemallee 127, 
5820 Gevelsberg. 


u VC20 Spitzenspiele DONE 
MI Liste gegen 60 Pf Rück- I 
M porto bei M. Platt, Cari- I 
M Orff-Str. 4, 8721 Ham- I 
W bach! Nur Kassettenliefe- I 
B rung möglich. FürKasset- 3 
te 4 DM zum Preis rech- 
IM nen. 3 Soft 20 Actionspie- I 
Ele {GV) nur 10 DM. 16K-Ad- 0 
B vent. in HIRES-Grafik nur 
EB 12 DM. BK-Fantasytextadr. I 
HEBBRBEBBE nu SDM. M 





CPC 464 und das Haushalts- 
geld. Das Programm für Ihr 
Haushaltsbudget - für 2 Ein- 
kommen, 2 Giro- und 1 Spar- 
konto und Bargeidbestand. 

DM 25,- (Schein oder Scheck) 
an W, Schrader, Auf dem Glei- 
chen 15, 6230 Frankfurt/Main. 





VG-20-Progamme, Video- 
Spiele für Grundversion bis 
16K-Modul, Angebotsliste geg. 
80 Pf. frank. Rückumschtag bei 
Horst Querfurt, Postf. 843042, 
4320 Hattingen 14. 





C-16/116 # C-16/116 ACTIONI! - 


Bei mir gibt es 5 Topspiele für 
nur 2 DM. Diesen Monat sind 
es: DALLAS, PACMAN, TERMI- 
NATOR, TERROR, WIBBLY. Den 
Bestellungen bitte Schein oder 
Scheck beilegen. Bestellun- 
gen bitte an: Roland Fuchs, 
Blanckenagelweg 9, 4770 
Sosst/Westf. 

PS. Tausche auch. Angeben ob 
Diskette oder Kassette. 





* %* % Hallo Einsteiger v x %* 
Verkaufe meine Originalsoftwa- 
re CPC 464, 664, 6128 auf Dis- 
keite/Kassette für nur8DM pro 
Spiel (NP 30 DM) und ATARI 
VCS (100 DM) + VCS-Module je 
10-30 DM. 

Spielwünsche + Tel, (wichtig!) 
an: Peter Schloz, Johannasstr. 


122, 7060 Schorndorf. 





CPC 8 TOP-SOFTWARE@CPC 
Das beste Biorhythmus-Progr. 
23K. Sehr komfortabler Aus- 
druck. 7 DIN-A 4-Seiten /Mo- 
nat. Auch Bildschirm, Grafik, 
sehr viel Text, ausführl. Erläute- 
rungen. interes. 
dienstmöglichkeit! Ein Spit- 
zenprogramm! Cassette 20,- 
DM, Disk 39,- DM Schein/ 
Scheck an R. Hilterschein, Tel. 
040/7211974,  Ludwig-Ro- 
senberg-Ring 47, 2050 Ham- 
burg 80. 





%* Brandneue CPC Program- & 
* me zu TOP-PREISEN! x% 


%* STREETHAWK 29DM«* 
%* SPITFIRE 40 33DM%* 
#* TAU CETI 33 DM % 
%* SKYFOX 230M %k 


%* FREITAG DER 13. 29 DM «x 
%*YIEARKUNG FU 30DM * 
% THEYSOLDAMILL33DM * 
%* Näheres bei M+K Soft, # 
% Meisenweg 7, 7440 Nür- * 
* tingen, Tel. 07022/6815. * 


HENBEBRBSBBERBBEN 
USA - PUBLIC - DOMAIN - & 
EB FREESOFT über 10.000 I 
5 Freiprogramme von der 
MIND. 1 in PUBLIC-DOMAIN, II 
B für C64/128 im DOS und I 
BHCP/M Mode Für ale 
EM Schneider Modeliel!! SU- I 
B PER KATALOGE (alle Pro- 8 
M gramme) geg. jeweils 3 MI 
3 DM (Sorry) inMarkeno.V- I 
M Scheck. ES LOHNTI!! u 
MI PUBLIC-DOMAIN-SERVI- II 
BCE, A.G. Maier, Alpenstr. - 
W 7, D-8019 Baiern. 

EBENEEEREREENE 


rk Ci6/116 W Grafikpro- * 
%* gramme -— Mini-CAD, si- & 
* chern, taden und weiter- # 
% bearb.d: Grafiken; Info ge- * 
* gen Porto: M. Rätzel, Ul-#* 
#venbergstr. 6, D-61000 * 
% Darmstadt * 


c-54! NUR 1 DM JE PRO- 
GRAMM! C-64! Clubsoftware 
{Anwender-, Spiel-, Lern-, 
Denk- und Musikprogramme 
gegen Kopiergebühr von nur 1 
DM abzugeben: z. B. Vocabel- 
trainer, Astrologie-Prg. mit Bild- 
schirm- u. Druckerausgabe, 
Synthesizer, Biorhythmus, Ac- 
tionspiele und Hilfsroutinen. 
Kein Schund! INFO (Rückp.f 

TEXASofl, Herthastr. 26, 
BEE 5 München 19 BEMEEEEE 


Gompube mip 


Nebenver- 


©16/116/4 PLUS /VC-207/C-64 
Fibu, VE/EK, Foto-, Film-, Video- 
Musikarchive, Lotto, Adress, 
YSI Tabello, Digitalo, Spielepa- 


kete, Kartei, Biblo, KFZ, Denk- 


training Lernprogramme, 
Handbücher, Staubschutzhau- 
be je ab 9,90 DM. Katalog ge- 
gen 80 Pf-Marke, j 
Computerservice T. Hofstede, 
A. d. Windmühle 8, 5010 Berg- 
heim 5. 


Schneider CPC 464/664/6128 
Strategiespiele für mehrere 
Teilnehmer, z. B.: 

Soccer-Manager 3”-Disk. 35,- 
Softw.-Manager 3”-Disk. 35,- 
ink. Porto und Anleitung. Joy- 
stick nötig. Ausführl. info mit 
weiteren Programmen gratis 
bei Dirk Storck, Weserstraße 
23, 4840 Rheda-Wiedenbrück 





*%* Commodore 16/116 k % _ 


Tausche und verkaufe Super- 


spielefürl-16/C-H6 zuabsolu- | 


ten Tiefpreisen. Listen sind ko- 
stenlos anzufordern bei Hubert 


Brink, Am Brink 5, 4470 Mep- : 


pen-Rühle. 


3% SUPER-SOFFWÄREANGEBDT Hr wr 
ae 


%* Koronis Rift (D) 52,90 
% Back to the Future (IK 35, 
# Arcade Hall of Fame (D) 55,-- * 
Ares Schidr We %* 


.* C-Basic Compiler 6128 179,-- # : 
(K) 52,90 # 


* Lord of the Rings 


%* Wintersports 33,90 # 


% Eomp.Service PF1304 7913 Senden Wr 





CPC 464, 664, 6/28 - Anwen- 


derprogramme, 2. B. Tabellen- ' 


kalkulation, Dateiverwaltung, 
Utilities, Wörterbücher, Kopier- 


programme. Kostenlose Infor- 


mation bei Joachim Pechmann, 
Schonhoverstr. 2, 8500 Nürn- 
berg 10, Tel. 0911/7538840. 





KR OI6/116 K PLUSAKCIB/NG 


Einstieg in die WELT DER GRA- 
FIK mit C16/116 und Plus 4. 


30 Grafikprogramme {2D.u. ! 
3D!N) auf Kassette fürnur25DM - 
bei: Bernhard l.auer, Handgas- : 


se 10, 8700 Würzburg. 
INFO gegen Rückporto. 
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Club- 
Nachrichten 


vVC-20-Club möchten gerne 
neue Programme testen oder 
alte tauschen. Info 1 malim Mo- 
nat kostenlos. Porto beilegen. 
Erfahrungsaustausch NEU! 
NEU! Bernd Steinmetz, Post- 
fach 1036 31, 3500 Kassel 





Der Computerclub Ruhrgebiet 
sucht Mitglieder aus dem Groß- 
raum Ruhrgebiet, damit auch 
Clubtreffen einfach durchge- 
führt werden können. Ange- 
sprochen sollen vor allem Be- 
sitzer von Commodore VC-20 
und Commodore G-167116 
Computern werden. 

Im Glubleben sind folgende 
Möglichkeiten gegeben: 

® Ciubzeitung 

® Frogrammbibliothek 

® Ciubtreffen _ 

@ Fortbildungsmaßnahmen 

® und vieles mehr. 

Der Kontakt müßte mit Rück- 
porto über folgende Adresse 
erfolgen: j 

AWO JUGENDWERK ESSEN 
Computerclub Ruhrgebiet 
Pferdemarkt 7 

4300 Essen t 





CPC Clubgründung 

An alle CPC USER! 

Wenn Ihr ein Schneider CPC 
464 besitzt, und Lust habt ei- 
nen Club zu gründen, dann 
könntihr Euch gegen Rückpor- 
to bei mir melden. Meine Adres- 
se lautet: 

S. Martin, Östpreußenstr. 3, 
3599 Bad Wildungen 

PS.: Wenn Ihr Ideen zur Club- 
gestaltung habt, könnt Ihr die- 
se gieich mitschicken. Ich be- 
antworte jeden Brief! 





COMPUTER-Club C-64 KMP 
T1V99/4A. Wir suchen Mitglie- 
derfürunseren Club. Wirhaben 
Software- und Infotausch an- 
zubieten. Clubzeitschrift ca. al- 
ie 2 Monate. Schreibt an: Mi- 
chael Kaub, „CCCG-64 KMP TI/ 
99/4A", Hans-Thoma-Weg 2, 
5970 Piettenberg. PS. Wenn 
möglich 80 Pf Rückparto beile- 
gen. 
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FREAK-SOFT CLUB u 
CPC 464/664/6128 

Wir suchen Mitglieder auf der 

ganzen Welt, daß Alter ist egal. 

Ob ihr Änfängeer oder Profis 

seid, jeder ist bei uns willkom- 

men! 

Unsere Schwerpunkte: 

@ Wir entwickeln jeden Monat 
eine Clubzeitschrift 

@ Wir wollen eine Tauschzen- 
trale für alle Mitglieder auf- 
bauen 

@ Wir wollen gemeinsam Pro- 
gramme schreiben 

© Tips, Tricks und Erfahrungs- 
austausch 

® Hilfe bei Problemen aller Art 
USW. 

Der Clubbeitrag beträgt 3 DM 

monatlich. Davon wird die Zeit- 

schrift finanziert und jedem 

Mitglied gratis zugesendet. 

Software und andere Überra- 

schungen sind nicht selten. 

Jeder der Interesse hat schickt 

uns einfach 3 DM zu und wir 

schicken ihm die Zeitschrift zu, 

man wird automatisch zum Mit- 

glied. 

Anfragen bitte nur mit frankier- 

tem Rückumschlag. 

FREAK SOFT; 

CPC464 

Ralf Hopperdietzel 

Theodor Storm Str. 22 

86670 Hof/Saale 


CPC664/6128: 
Michael Eckert 
Zobelsreuther Str. 30 
8670 Hof/Saate 


Suche Software 


Gesucht für Schneider EPG 
6128 auf Disk. - Spiele jeder Art 
für Kinder ab 12 Jahre. 

Klaus Möller, Weitistr. 33, 8060 
München 71, Tel. 797407. 


„u. Commodore 16 “eu 
Suche Spiele, Adventures, Tips 
und Tricks usw, U. A. die Lö- 
sung für das Spiel „Cata- 
comps“. Angebote bitte an: Pe- 
ter Miletits, A-1170 Wien, Palffy- 
gasse 16/15. 





C-116  Kassettenprogramme 
gesucht! Angebote von Spiel- 
und AÄrchiv/Verwaltungspro- 
grammen mit Preisangaben bit- 
te schriftich an: L. Eckert, 
Schild 2, 3300 Braunschweig. 
(Ggf. mit Spielbeschreibung 
bzw. Anwenderinfo). 
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O6 C-64 a 0-64 a Cc-54 
Suche Kung-Fu und Karate 
Spiele auf Kassette. Außerdem 
suche ich Slapshot (Eishok- 
key) auf Kassette für C-64. 
Schickt eure Angebote oderLi- 
sten an: Kent Heyne, Wiesen- 
straße 36, 2000 Norderstedt!!! 





| Biete Hardware | 
Verschenke Commodore © 116 
an denjenigen, der mir für mei- 
ne Floppy-1541 DM 400,- zahlt. 
Floppy neuw. (gekauft Nov. 85) 
Dazu gibt's noch 10 Disketten 


und versch. Bücher!t! . 
Tel. 0897/7557000 





Commodore 116 mit Datasette 
und 2 Joysticks, sowie viele 
Spielcassetten und Literatur 
usw. zu verkaufen. Neupreis 
sämtlicher Gegenstände über 
700,- DM. Verkaufspreis 400,- 
DM. Alle Geräte erst 4 Mon. alt, 
oder Tausch gegen Drucker für 
CPG 464 mit Papieren. 


Ar rer SUPERPREISE Ar Ar dr 


# Monitor 1701 sB— ir 
#r Drucker MPS 801 289,--# 
#* Citizen 1?0D-+Hnterf. 78, * 
# Quickshot IX 39-- * 
% Quickshot IV 25,90 * 


% Disketten 10 St5442D 26,-- * 
# Bestellungen auch telefonisch 
* Computer Service PF. 1304 & 
% 7913 Senden - Tel.: 07307/6230 % 





Verkaufe einige 24K-RAMS für 
VC-20. Schaltbar @-J4-B-16- 
24k-Byte 90,- DM + Versand. 
info gegen Rückporto. 

Friedel Heinz, An der Halde 43, 
4330 Mülheim-Ruhr. 


Staubschutz aus Kunstleder 
für: Tastaturen und Floppy’s a 
DM 15,-; Drucker und Plotter & 
DM 20,-; Monitoren (Maße arı- 
geben) a DM 25,- Rauchglasf. 
Kunststoffhauben für: C 64 DM 
18,90; PC 128 DM 33,50; 1541 
DM 26,80; CPC 464 DM 27,=; 
664 DM 28,20; 6128 DM 29,-; 
DDI-1 18,-; Vorkasse portofrer 
B. Steponaitis, Obere Straße 
30, 8720 Schweinfurt 


Sompube mif 


Verkaufe meine Reste: Original 
Commodore-Bücher! Das VC- 
20 Spielebuch 10,- DM; alles 
über vVG-20 10,- DM; Grand- 
master-Schach für C-16/116/ 
Plus-4 (Neu: 80,- DM) für nur 
35,- DM auf Cassette! Buch für 
C 64: Automaten + Sensorenz. 
Selberbauen 15,- DM! Preise + 
Nachnahme + Verpackung! 
Schnellf!! Alles nur 1-mal vor- 
handen! 02202/52243 











| Verschiedenes ] 


rer er Achtung Ar kr ie dr er 
Tippen Ihre Listings ab für 
C128, C64, C16, C116. Pro Seite 
2,=, Bitte schicken Sie mit: Da- 
tenträger, Listing, Rückporto 
und alles andere erledigen wir. 
Angebote an Ralf Braun, Orchi- 
deenweg 30, 7050 Waiblingen, 


Tel. 07151/52268 ab 14 Uhr. 


Di-Fr. Gegen Vorkasse: Um- 
schlag beilegen. 





Wie schnelt doch ein zunächst 
sehr Iinteres. Pgm, langweilig 
wird!!! Ein OL-Soft Abo (C64/ 
128) hilft mit monatl. bis zu 20 
neue PRG’s!!! (Adventures/An- 
wendungen/Spiele} schon ab 
3 DM pro PGM!!! 

OL-Soft, Tel. 0201/ 732668 

z. Hd. Herrn Hollmann 
Mommsenstr. 14, 4300 Essert 1 





Hallo C-16 Hobby-Program- 
mierer! Nebenverdienst durch 
veröffentlichung : selbsige- 
schriebener Programme. For- 
dern Sie unser Autoreninfo 
„CM16“ kostenlos an, bei: 

Fa. R. Hübbern, 

Mühlbachstraße 2 

D-5429 Marienfels 


Neubesitzer CPC 664 sucht 


Kontakt zu jedermann der daß 
Tex-Pack,  Textverarbeitung- 
sprogramm beherrscht. (Besit- 
ze dieses Programm, komme 
aber nicht klar). Außerdem su- 
che ich jemand der mir eine 
Druckertreiber-Datei für den 
Drucker „Präsident 6312" für 
Tex-Pack gegen Entgelt er- 
stellt? Zuschriften an: Klaus 
Kaiser, Mozartstraße 12, 8480 
Weiden. 
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programme 


1103 DATA ES,E1,23,23,BE,28,FC,DF,FF,FD, 


'18,00,C1,05,28,D9,3E,01,DD, 0904 


13 


1104 DATA BE,00,DD,23,28,C3,18,F2,08,04, 
DD,23,10,FC,AF,32,A4,9D,C?, 08B4 
1105 DATA CD,69,98,C8,78,32,AD,9D,21,17, 
9E,22,AF,9D,7E,23,B6,28,47, 0894 
110& DATA 2B,ER,21,C1,9D,1A,BE,38,08,20, 
10,B7,C08,23,43,18,F4,2A,AF, 0777 
1107 DATA 9D,AF,47,AF,ED,B1,18,DD,2A,AF, 
91,7E,23,B6,20,FB,E5,ED,4B, O0A?A 
1108 DATA AF,9D,A?,ED,42,44,4D,03,ED,SE, 
AD,FD,EL,ES,19,EB,E1,ED,B&, 0898 
1107 DATA ED,4B,AD,PD,21,01,9D,ED,SB,AF, 
9D,ED,B0,C7,£D,4B,AD,9D,03, 0B80 
1110 DATA 18,EF,3E,62,BB,28,09,3E,61,BB, 
28,04,3E,70,BB,C0,DD,ES,Ei, O8SES 
1111 DATA 3E,20,2B,BE,28,FC,3E,2C,BE,20, 
13,DD,ES,E1,3A,A4,90,47,2B, 0856 
1112 DATA 3E,01,BE,28,06,3E,CB,BE,C8,10, 
F4,B7,C9,3A,A8,9D,FE,00,C8, 0983 


1113 DATA CD,F2,93,10,F5,09,11,C01,9D,D5,. 


AF,06,2A,12,13,10,FC,D1,06, 094B 
1114 DATA 01,7E,CB,?F,20,25,FE,30,38,29, 
FE,3A,38,19,FE,41,38,21,FE, 07BC 
1115 DATA 5B,38,19,FE,61,38,19,FE,?B,30, 
15,12,04,CB,7E,C0,23,13,18, 0687 
tii1& DATA DA,CB,FF,1i8,F3,CB,BF,18,D7,C6, 
20,18,EB,AF,C9,DD,ES,E1,D5, 0D0Oi 
41117 DATA ED,SB,AB,#D,A?,ED,52,D1,C9,21, 
21,00,00,22,17,?E,2A,83,AC, 0882 
1118 DATA 2B,2B,22,AB,9D,3E,06,32,93,92, 
21,62,AE,22,95,92,DD,21,70, 0733 
1119 DATA 04,DD,SE,00, pp, 56,01,CD,AB, 98, 
CA,SE,99,DD,E5,DS,CD, co, 97, OAFC 
1120 DATA 7B,D6,05,47, cs, 3E,20,DD,66,00, 
BC,28,05,3E,2C,BC,20,14,DD, 0723 
1121.DATA ?E,O1,FE,1IE,20,.0D,DD,5E,02,DD, 
54,03, DD,E®,CD,1A,99,DD,El, 093B 
1122 DATA C1,DD,23,10,D9,D1,DD,E1,DD,19, 
18,BC,DD,21,17,9E,DD,6E,00, OAOL 
1123 DATA DD,£6,01,7D,B4,28,21,CD,58,99, 
C8,30,06,DD,23,D0D,23,18,EA, 087C 
1124 DATA DD,73,00,DD,72,01,EB,DD,23,DD, 
22,0D,46,01,DD,6E,00,7C,8B5, 094B 
1125 DATA 20,EB,DD,72,00,D0D,72,01,DD,36, 
02,00,DD,36,03,00,C9,7C,BA, 07D5 
1126 DATA CO,7D,BB,C9,2A,17,9E,7D,B4,28, 
18, FD,21,17,9E,FD,SE,00,FD, 093A 
1127 DATA 56,01,75,82,08,00,86,79, FD, 23, 
FD,23,18,EE, 21, IE, GE, 06, 21, OSFF 
1128. DATA 11,14,00,03,D0,93,D5,3#A, BD, 9D, 
D6,02,47,3A,BC,9D,BS,CC,F2, 0968 
1129 DATA 93,06,02,C0D,5D,98,11,0C,00,21, 
92,9B,06,0C,CD,DC,93,D1,DS, 07BC 
1130 DATA EB,CD,80,72,21,7B,7B,06,1C,CD, 
E2,92,3E,20,32,A?,9D,D1,DD, 09F4 
1131 DATA 21,70,01,DD,4E,00,DD,46,01,C0, 
AB,98,C8,DD,E5,DD,6E,02,DD, G9AS 
1122 DATA 66,03,22,B2,9D,C5,CD,C0,97,DD, 
22,05,90,79,D4,04,47?,C5,3E, O9Al 


Cemasubs mip 


.47,9F,53,35,92,59,948,45,9E, 


1133 DATA 1E,DD,BE,00,20,00,DD,7E,01,BB, 
20,06,DD,7E,02,BA,28,0C,DD, 0744 
1134 DATA 23,C1,10,E7,C1,DD,E1,DD,09,18, 
EF,DS,3A,A7,90,06,25,FE,2C, OA?F 
1135 DATA 28,05,CD,F2,93,3E,07,5F,32,A7, 
9D,16,00,21,77,9B,06,05,CD, O6DtC 
1136 DATA DC,93,2A,B2,9D,CD,80,92,06,03, 
CD,EF,9A,DD,ES,E1,2B,CD,CA, 0B85 
1137 DATA 9A,20,FA,FE,A0,28,15,FE,9F,28, 
52,FE,EB,20,EE,21,iF,9B,06, O®7E 
1138 DATA 04,CD,E3,#3,D1,DD,23,18,AA,CD, 
D1,7A,28,1B,2B,CD,CA,FA,20, O09D1 
1139 DATA FA,FE,EB,28,18,FE,97,28,1B,FE, 
BZ2,28,1C,FE,7C,28,1F,CD,58, O9F5 
1140 DATA 99,30,E5,21,2C,9B,06,04,18,D1, 
21,30,7B,06,09,18,CA,21,37, 05C0 
41141 DATA 9B,18,F?,21,42,9B,06,07,18,BE, 
21,23,9B,06,0D,18,87,CD,Di, 08EA 
1142 DATA 9A,28,1B,2B,CD,CA,9A,20,FA,FE, 
EB,28,19,FE,97,28,1C,FE,B2, 0A04 
1143 DATA 28,1D,FE,B3,28,20,00,58,99,30, 
E5,21,52,7B,06,05,03,3F,9A, 07Cä& 
1144 DATA 21,57,9B,08,04,18,F6,21,61,9B, 
18,F7,21,6B,9B,06,08, 18,EA, 0894 


1145 DATA 21, 49, 9B, 05,0E,18,E3,23,3E, 20, 


BE,2ZB,?E,C®, Es, En, SB, AS, SD, 0834 

1145 DATA SE, 20, 2B, BE,28,F0,CD,58,99,38, 
05,3E,01,BE,E1,C9,AF,E1,C9, 0966 

1147 DATA C5,23E,20,DF,F&,7A,01,10,F?,C9, 
83,F2,FD,5C,C3,FD,OD,FF,FD, OCBA 

1148 DATA 82,EE,FD,18,D6,1C,D6,14,D&,42, 
20,65,69,694,65, 73,56, 20,61, 087A 

1149 DATA 72,69,61,62,60,65,5E,53,20,70, 
72,73,65,6E,67,65,54,48,45, 0727 

1150 DATA 4E,4F,4E,20,45,52,52,4F,52,20, 
47,4F,59,49F,54,48,495,49E,20, OS3D 

1151 DATA 47,3F,54,4F,45,40,53,45,20,47, 
4F,54,4F,4F,9E,20,47,4F,54, 0562 . 

1152 DATA 4F,4F,4E,20,42,52,45,41,4B, 20, 
0540 

1153 DATA 20,47,4F,53,55,42,45,40,53,45, 
20,97,4F,53,55,42,4F,4E,20, 0526 

1154 DATA 47,4F,53,55,42,99,8E,20,5A,65, 
59,60,65,20,20,77,69,72,64, 06496 

1155 DATA ?20,61,75,656,67,65,72,75, 66,65, 
6E,20,69,68,3A,20,20,2A,2A, 080D 

115& DATA 2A,7A,2A,20,20,54,685,69,6C0,65, 
45,73,20,73,69,6E,64,20,6B, 0508 

1157 DATA 65,69, 66,65, 20,53, 70,72, 75,65; 
6E , 67,65, 20,76,6F,72,68,61, 074A 

1158 DATA 6E,64,65,66,21,50,72,65, 73,73, 
20,6B,65,79,20,66,6F,72,20, 06C3 

1159 DATA 6E,65,78,74,20,70,61,67,65,20, 
21,5A,65,69,60,65,68E,3A,20, O67E 

1180 DATA 45,73,20,69,73,74,20,6B,65,69, 
6E,20,50,72,65F,67,72,61,6D, O6E? 

1161 DATA 8&D,20,76,6F,72,68,61,6E,64,65, 
#E,20,21,20,2D,20,20,28,20, 0575 

1162 DATA 29,49,4E,54,45,47,45,52,2D,56, 
41,52,49,41,42,40,95,4E,20, 0518 

1163 DATA 52,95,41,40,20,56,41,52,49,41, 


b/’86 


- 


n/86 


42,40,45,4E,20,20,53,54,52, OS1E 


1164 DATA 49,4E,47,2D,36,41,52,49,41,42, 


40,45,4E,20,20,2A,2A,2A,2A, 0487 
1165 DATA 2A,20,53,65,69,74,65,20,3A,43, 
52,4F,53,53,20,52,45,46,45, 0577 
1164 DATA 52,45,4E,43,45,2D,40,49,533,54, 
45,20,20,20,56,41,52,49,41, O4EE 
1167? DATA 42,40,45,4E,20,40,49,53,53,45, 
44,20,72,75,63,6B,65,72,42, 0601 
1168 DATA 20,69,60,64,73,62,68,69,72,8D, 
41,75,73,67,61,62,65, 20,61, 0718 
1169 DATA 75,66,38,53,6F,6C0,60,20,684,61, 
73,20,50,72,6F,67,72,61,6D, OäFF 
1170 DATA &D,20,77,89,72,6B,60,69,63,68, 
20,62,69,65,6E,64,63,74,20, 0701 
1171 DATA 77,65, 72,64,658,6E, 20, 28,4A,DF, 
4E,29,20,3F,44,61,73,20,50, 05A4 
1172 DATA 72,6F,67,72,61,60,68D,20,69,73, 
74,20,7#,75,20,60,61,6E,87, 0736 
1173 DATA 20,21,20,69,73,74,20,6B,685,869, 
66, 20,42,61,73,69,63,70,72, 0656 
1174 DATA 6F,67,72,61,6D,6D,20,21,20,69, 
72,74,20,67,65,60,61,649,65, 06B6 


werkstatt 


1175 DATA 6E,20,21,57,81,69,63,80,45,6E, 
20,53,69,65,20,21,46,69,&C, 0610 
1176 DATA 65,6E,681,6D,65,34,20,50,72,65, 
73,73,20,61,6E,79,20,8B,65, 06C5 
1177 DATA 77,20,21,50,20,72;6F,67,72,61, 
60,60,20,62,65,55,6E,64,65, 06A2 
1172 DATA 6E,4B,20,61,74,61,50,68F,67,56, 
20,61,72,89,61,60,62,65,6E, 0705 
1179 DATA 80,59,73,74,65,43,20,72,6F,73, 
73,20,532,65,66,65,72,65,6E, 073F 
1180 DATA 623,65,2D0,40,69,73,74,65,42,20, 
61,73,69,63,70,72,6F,67,72, 0722 
1181 DATA 81,650,6D,20,60,61,54,85,6E,43, 
52,4F,53,53,20,52,45,46,45, 0682B 
1182 DATA 52,45,4E,43,45,20,20,20,20,20, 
20,20,20,20,28,43,29,20,20, 0361 


1183 DATA 57,2E,20,42,6F,65,6E,69,67,6B, 


n&,FD,FD,00,08,00,00,00,00, 083C 
1184 

1185 DATA 10 MEMORY &BFFF 

118& DATA 20 LOAD "CROSSREF.OBI" 
1187 DATA 30 CALL &9000 





ZEILENNR.: SUMMEN 1015- 1017: 907246 
100- 110: sdaoda 1018- 1017: 87237 
1?0- 1720: 45309 1020- 1071: 80072 
140- 150: 5974934 1022- 1023: 8526597 
i60- 170: 26401 1024- 1025: 85075 
130- 1990: 50035 10286- 1027: F7as8 
a0- 210: 23090 1023- 1029: 94445 
»20- >20: 232172 1030- 1031: 81783 
240- 250: 169727 1032- 1033: 82773 
2&0- 770: 13398 1034- 1035: 84030 
280- 290: 38511 1034- 1037: 98132 
200- 310: 5415? 1035- 1037: 858417 
320- 3320: 42174 1030- 1041: 83777 
240- 350: 621238 1042- 1043: 83150 
S40- 370: 1992 1044- 1045: 853440 
280- 390: 26794 1045- 1047: 85302 
400- 410: 29910 1045- 1049: 32037 
420- 430: 5234 1050- 1051: 83440 
440- 450: 8246 1052- 1053: 88393 
4s0- 470: 4970 i1054- 1055: 87527 
450- 490: 27002 1055- 1057: 72574 
500- 510: 8737 1058- 1059; 82085 
S?0- 5320: 80923 10850- 104i: 94444 
540- 550: "27 1042- 1063: 84439 

1000- 1001: 83108 10684- 1065: 73661 
1902- 1003: 82050 104&- 1067: 87308 
4004- 1005: 829777 1058- 1059: 83194 
1005- 1007: 83265970 1070- 1071: Bölds 
1008- 10097: 87314 1072- 1073: 85721 
1010- 1011: 78581 1074- 1075: 86331 
1012- 1013: 80712 1076- 1077: 88490 
1014- 1015: 983511 1078- 1074 793723 


GSomsurs mir 


1144- 1135: 








1050- 1081: 85432 233652 
1082- 1083: 893326 1146- ild47: 92877 
1084- 1085: 7864i 1148- 1149: 74733 
1086- 1087: 84581 1150- 1151: 777272 
1088- 1089: 84519 11572- 1i53: 73926 
1090- 1091: 877Z0 1154- 1155: 78374 
1092- 1093: 36210 1156- 1157: 76669 
1094- 1075: 85679 1158- 1155: 76173 
Ii09&- 1097: B4sll j180- Iidi: 75508 
1098- 10997: 88225 11l&2- 1lası F2IAl 
1100- 1101: 883492 1154- 11645: 74878 
1102- 1103: 83890 ildö6- 1167ı 72792 
1104- 1105: 983744 1168- 1167: 75621 
1106- 1107: 968®P1 1170- 1171: 73600 
1108- 1109: ?Fzs4l i1?2- 1173: 75095 
i110- 1il1: 88415 1174- 1175: 73891 
i1112- 1113: 94545 1176- 1177: 78065 
4114- 1115: 816423 1178- 1179: 765407 
111&- 1117: 853093 1180- 1181: 73310 
1i118- 1117: 83582 1182- 1183: 70479 
11720- 1121: 85584 1184- 1135: 9573 
1122- 1{?223: 85051 1186- 1187: 24813 
1124- 1175: 84ld2 | -----=-- nenn 
il2a- 1127: 87044 GESAMTCHECKSUMME : 
1128- 1129: 38514 

1130- 1131: 897985 

1132- 1132: 85531 12362 

ı1124- 1135: 87126 

1136&- 1137: 87570 

1138- 11239: 27104 

1140- i1sl: 80054” 

1142- 1143: 85640 
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tips + tricks 


Tips & Tricks für Schneider CC Abd 
ITEXT oder: Endlich doppelt hohe Zeichen 


ITEXT isteine Befehlserweiterung, die es dem Programmierer ermöglicht, Texte oderauch nur 
einzelne Buchstaben in doppelter Höhe auszugeben. 


Sein genaues Aussehen: 
AS ist dabei ein beliebiger String, der für die Ausgabe vorgese- 
hen ist. 

X, Y, geben an, ab welcher Stelle der String ausgegeben werden 
soll. 

Der entsprechende Basic-Befehl lautet: LOGATE X, \. 

P gibt an, mit welchem Stift der Text geschrieben werden soll 
Ein vergleichbarer Basic-Befehl lautet: PEN P 

Bei der Benutzung des neuen Befehis ist darauf zu achten, daß 
der String im richtigen Format angegeben wird, daes sonst pas- 
sieren kann, daß unverständliche Zeichen angehängt werden. 
Das richtige Format sieht folgendermaßen aus: 


Im Direkt-Modus: A$ = „Dieses ist... “ +chr$(ß} 

oder: A$ = STRING $ (40, CHRS(IEA+CHRSIO) 

Es ist also wichtig, daß im Direkt-Modus der Zusatz ’+CHR$(0)' 
angehängt wird. 


Im Programm: a$ = „Dieses ist... 
Beachte: Die abschließenden Anführungszeichen müssen weg- | 


gelassen werden! 


TEXT, @A8,X,Y, P 





oder READ A$: A$ = A$+CHR (0) 

oder A$ = STRING $(40, CHR$(164))+CHR$(O) 

Es ist also erforderlich, daß die abschließenden Anführungszei- 
chen weggelassen werden, bzw. der Zusatz ’+CHR${0)‘ ange- 
hängt wird. 

Vorsicht: Vor dem Laden der Erweiterung ist folgendes einzuge- 
ben: 


10 SYMBOL AFTER 32 100 Memory & A000-1 
20 SYMBÜL... 110 LOAD "I", & a000 
120 CALL & A000 . 


Nur ist die Routine eingesetzt, der Befehl funktionsfähig und die 

neuen Zeichen sind definiert. 

Sollte es aber nötig sein in dem Programm die Zeichen zu än- 

dern, ohne das dieses mit der ITEXT-Routine in Konflikt kommt, 

so ist vor dem Laden folgenden Einzugeben: 

10 SYMBOL AFTER 256: MEMORY & 9FFF:LOAD”!”,&A000: 
CALL & a006 

20 SYMBOL AFTER 32:POKE & a045,&99 


Dieses Programm ist nur in der Kassettenversion lauffähig. 


SYMBOL AFTER 32:MEMORY &9FFF 


FOR adr=&A0O00 TO &AOBF 


READ 38:POKE adr ,VALUÜ'"&"+aS) 


NEXT 


MODE 1:CALL &AO0O0:aS="POKEN FERTIG ... 


BEFEHL EINGEBUNDEN 


ı TEXT ,@a8,1,1,1:385="Zum Abspeichern Taste druecken 


ı TEXT, ,@8a$8,1,4,2 
CALL &BBO6& 
SAVE"!TEXT. 
PEN 1:END 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


MC",B,&A000,8&C0 


07,DD,6E,06,23,5E, 


23,13,10,F8,21,71,A0, 
75,BB, 


20,56F,70,65,72, 
6D,75,69,68,20,6F 





FD nennen re 


01,09,A0,21,13,A0,C3,D1,BC,OE,A0,C3,17,A0,54,45 
58,D4,00,00,00,00,00,FE,04,DA,83,A0,C2, 
TE,00,CD,90,BB,DD,66,04,DD,6E,02,CD,75,BB,DD,66 
23,56,EB, 
06,20,90,21,00,A5,5F,16,00,06,08,19,10,FD,CD,56 
AO,E1,23,C03,39,A0O,EB,21,F0,AB,06,08,1A,77,23,77 
7E,FE,00,C8,23,CD,5A,BB,18 
F6,FE,0A,08,FF,0B,00,21,64,00,DD,6E,02,2C,2C,CD 
C9,21,96,AO,7E,FE,00,08,23, 
21,AC,A0,C3,86,A0,4E,6F,74,20,65,6E,6F 
61,6E,64, 
‚70,65,72,61,6E 


90,AO,DD 


7E,FE,00,CA,77,AO,ES 


CD,SA,BB,18,F6 
‚75,67,68 
73,0D,0A,00,54,6F,6F,20 
‚64,73,0D,0A,00 


Riae 
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